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1 01 MODULE BASSRSTS_FIELD ( ! FIELD statement 
§ 000 ee = '1-023' : Fu BASRSTSFI.832 Edit: MDL1023 
4 004 BEGIN 
: 0005 | | 
$ 0007 : See R AERA ARE RAAAAAERARAAARAERER ARETE EE EAEE ETE TERRE eee Eee 
'@ 8 
8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
G 0009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
19 adh : i. ALL RIGHTS RESERVED. * 
4 ® 
\¢ Bot¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
16 3918 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY s 
i? SEA : \ TRANSFERRED. * 
‘® ® 
19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$3 bnS. : + CORPORATION. * 
‘ * 
ts 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
25 0025 1 !* 4 
26 B0¢6 1 !e * 
e7? 002 1 Vee e REAR AERARREERERAAEAE AEA AEEEA ERATE RATA AAAAARAAEEKAERARREEAAREEEE 
28 0028 1! 
$2 ot 34 1 
0 0030 1 !++ 
31 0031 1 ! FACILITY: VAX=-11 BASIC Miscellaneous 
32 i hT4 1! 
33 003 1 ! ABSTRACT: 
34 0034 1! 
35 0035 1! This module contains the RSTS-compatable FIELD functions. 
36 0036 1! A FIELD variable is semi-interpreted, and routines in this 
37 0037 1! module ‘‘declare’’ such a variable, copy data to and from it, 
$ ite: ' and purge it when the block it was in is exited. 
ra sre ' : ENVIRONMENT: VAX=-11 User Mode 
$¢ Ooe ‘ : AUTHOR: John Sauter, CREATION DATE: 27-FEB-1979 
44 Oba 1 ! MODIFIED BY: 
45 045 1! 
46 si 1 ! 1-001 = Original. JBS 27-FEB-1979 f 
* 47 1 ! 1-002 - Rearrange FIELD_SET so that the gonpiler can call it conveniently 
48 O0e8 1! once for a FIECD statement. JBS 01-MAR-197 
49 049 1 ! 1-003 - Add a statement type pereneter to FIELD COPY. JBS 02-APR-1979 
50 0050 1 ! 1-004 = Correct STRSCOPY to STRSCOPY_DX. JBS 03-APR-1979 
51 51 1 ! 1-005 - Re-order some perenaters $9 make things easier on the BASIC-PLUS-2 
2g O3¢ 1! compiler. JBS 18-MAY-19 
5 053 1 ! 1-006 = Today the compiler eogen produc ing cogs for the FIELD 
54 054 1! statement, so begin debugging. JBS 22-MAY-1979 
55 55 1 | 1-007 = Add OPEN, CLOSE and KILL entry points. JBS 24-MAY-1979 
56 2$ 1! 1-008 - Complete coding of the new en ry egints. JBS 25-MAY-1979 
57 0057 1! 1- - Add BASSSFIELD_INIT. JBS 04-JUN-1979 
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in KILL which made it run forever. JBS 07-JUN-1979 
rtual array to be fielded, but goty if it is used 
ly for block 1/0, JBS 22-JUN-197 
D BS 1 atts 7 
alls fo STRSCOPY. JBs on1¥ -1979 
ISBSA_USER_FP. JBS 25-JUL=-1 
be IRSF REE BX only for variables not already FIELDed. 
Call BASS$$CB_GET, so we gon't have to be in the sharable 
ibrary. JBS 22-AUG-19 
Make negative string lengths back u gpe address but set 
the variable’s length to zero. JBS 28-FEB-1980 
When opening a file, validate variables which may have been 
invalidated by the implied close. JBS 23-MAY-1980 
Add 2 to LubSk_ilun_min before calling bas$$cb_push to force an 
error when -7 gr “8 LUNs are used, at the same time put the code that 
opens channel 0 for upgrading bas$field_set to the level of the other 
1/0 support routines. FM 17-sep-8 
“. ne Med global so that BASSCLOSE can access it. 
tg ee pitt not need SYM$Q_ROOT after all, so make it OWN again. 
= un= 

Undo 19. We can now do 1/0 to #0, becuase BASSPUT will use foreign 
buffer mechanism to do PUTs to #0. FM 9-JUL=81. 
set LUBSV_FIELD_USE when a FIELD statement is executed, so that 
BASSCLOSE can tell if there is FIELDing on the channel. Clear it 
when the channel is closed. MDL 29-Mar-1984 


'<BLF /PAGE> 


o 
o 


ooo 


OOOO CCOCOCOCOOOOOOOoOOSoSoOoS 
EPPS SPSS SST TI II 
NOVUESWN —OOONOUS WN OOOO ws 


oo 
oO 
Coes & 
oe 


So 
~ 
Co 
wi 
ee a a a ee ee ee ed ee ed a ed ee a ce ce ee el ee a a a ee ee ee el el ec a a a ae ee ed ee ee ee ee 


tat at ee ee ek ek hah ol) aan POMININININIUIID 4 3 ot tt 4 QOOOO oO ooo 
RE te Oe ao USSSSSNSEARAN “SSanonrww-OSeuenRwwo Soe von 


tet kt st = ss 4H AOD 
SNA AAA ADA O w 


wn 0 0e 


i - - . . . oo 


yt 

16-Sep-1984 01:07: AX=11 Bliss-32_v4.0-74 p | 
We=8ep-198e 11:56:38 EeasRta “See Seasestsrl 682: nee 25 | 
| | 


SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


; LINKAGES: 


REQUIRE *RTLIN:OTSLNK'; 
' 


; TABLE OF CONTENTS: 


Define Linkages 


FORWARD ROUTINE 
BASSFIELD_SET : NOVALUE, ! Process a FIELD statement 
BASSFIELD_VAR : CALL_CCB NOVALUE, ! Declare a FIELD variable 
BASSFIELD-CLEAR : NOVALUE, ' Undeclare a FIELD variable 
BASSFIELD_COPY : NOVALUE ! Reference such a variable 
BASSFIELD_COP_R NOVALUE, ! Reference such a variable 
BASSFIELD-PURGE : NOVALUE, ! Purge field variables 
BASSFIELD_OPEN : NOVALUE ! A file was just opened 
BASSFIELD-CLOSE : NOVALUE, ! A file was just closed 
BASSSFIELB_KILL : CALL_CCB NOVALUE, ! CLOSE appendage ; 
BASSSFIELD_INIT : NOVACUE; ! Initialize the FIELD List 


; INCLUDE FILES: 


REQUIRE *RTLIN:RTLPSECT'; 
REQUIRE *RTLML:OTSLUB'; 
REQUIRE *RTLML:OTSISB'; 
REQUIRE ‘*RTLIN:BASFRAME'; 
LIBRARY ‘RTLSTARLE'; 


Macros for defining psects 


| 
Logical unit block definitions | 
ISB definitions 
BASIC frame structure | 
| 
} 


System definitions 


! 

MACROS: 

NONE 
: EQUATED SYMBOLS: | 
LITERAL | 


STMT_TYPE_LSET LSET statement 
STMT_TYPE_RSET ; ! RSET statement 


“ou 
-—-o 
. 


PSECTS: 


-~ 


BASSRSTS_FIELD 1 4 01:07 AX=-11 Bliss-32 V4.0-74 
358 1 Bc i 6:38 EBASRTL SRE BASRSTSF1.832;1 (2) | 


DECLARE_PSECTS (BAS); 
OWN STORAGE: 


OWN 
SYMSQ_ROOT : VECTOR [2] INITIAL (0, 0); 
' 


EXTERNAL REFERENCES: 


Root for symbol table 


EXTERWAL ROUTINE 

BASSSSTOP : NOVALUE, 
BASSS$STOP_I0 : NOVALUE, 
LIBSGET_VA, 
LIBSFREE_VM, 
BASS$CB_PUSH : JSB_CB_PUSH NOVALUE, 
BASS$$CB_POP : JSB_CB_POP NOVALUE, 
BASSSCB'GET : JSB_CB_GET NOVALUE, 
STRSCOPY_DX, 
STRSFREET_DX, 
BA T 


SSRSET, 
BASSSOPEN_ZERO : NOVALUE; 


' Signal fatal error 

! HM ge fatal 1/0 error 
Get virtual memory 

! Free virtual memory 

' Load vegneter ccB 


; i 

' Load CCB with current LUB 

! Copy a string (LSET) | 

H a string | 

! Copy a string (RSET) 

! Open channel 0 
| 
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The following are the error codes used in this module. 


EXTERNAL LITERAL 
BASSK_MAXMEMEXC : UNSIGNED ! Maximum memory exceeded 
: ! Program lost, sorry 
' 1/0 channel not open 
: it legal or illogical access 
! Field overflows buffer 
' Illegal FIELD variable 
! Illegal 1/0 channel 
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00786 
14-Sep-1984 BASRTL.SRCJBASRSTSF 1.652; 1 
' 


'¢ 
The following field represents a symbol table entry. 


1ELD 
BASSFIELD_SYM = 
SET 


SYMSA_NEXT = i 0, SBPADDR, 0) 
SYMSA~PREV = 
= 


' Next symbol table entry 
ZUPVAL . 0, XBPADDR, 035 } eres entry 

! channe 
VAL, 63, ' Offset into 1/0 buffer 
YMSL_ CzuP 4 5 ; ! Number of bytes referenced 
SYMSL-DECL = C%UPVAL®S, 6, VAL, 1, ' Scope of the declaration 
SYMSA_VAR = CZUPVAL* %BPADDR } Address Wt qeserioter 


~ 6, 0 " 
SYMSVCINVALID = CXUPVAL*?, 0, 1, 63 Invalid’ 


LITERAL 
SYMSK_LENGTH = ZUPVAL*8; 


REVLSSSLESRANLESELES 


Number of bytes to allocate 
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! Execute a FIELD statement 


STS_FIELD 


*% 


we 


oo 
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GLOBAL ROUTINE BASSFIELD_SET 
: NOVALUE = 


ws 


'oe 


i FUNCTIONAL DESCRIPTION: 


Execute a FIELD statement. The compiler pushes all of the 

variables in the FIELD statement from right to left and then 

calls this routine. As a result, the formal parameters are 
arranged rather strangely. This routine goes through them | 
calling BASSFIELD_VAR for each variable. 


The FIELD statement is formatted as follows: 
FIELD @chan, exp BY var, exp BY var, ... 
FORMAL PARAMETERS: | 


The formal parameters are rather strange, for the convenience of 
the compiler. Because the conp ther Likes to push parameters in the 
order in which it encounters them, the pairs of optional parameters 
are first, followed by the fixed parameters. The List below is of 
the parameters in reverse order. 


CHAN. rl.v An 1/0 channel. Must be open. 

DECL.rl.v An indication of the scope of the declaration 
of the variable. This is a pointer to the aeajr 
frame (R11) if the variable is in the scope o 
the major preseeure. or a pointer to the minor 
frame (R10) if the variable is in the scope of 
a 


« | 
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The following two parameters can be repeated as often as required. 


40 
41 LEN.rl.v The number of bytes referenced by the variable 
4 VAR. wt.d The variable. Since references to it ignore its 
4 previous (non-FIELD) contents, we free it here. 


IMPLICIT INPUTS: 


SYM$Q_ROOT.mq The queue of FIELD variables : the symbol table. 
LUBS$V_VA_USE If this bit is set, the file has been used 
with a virtual array, and so cannot be used 
with the FIELD statement. 


Ronofmonononofory 
errr 
NOUS 


IMPLICIT OUTPUTS: 


SYM$Q_ROOT.m 

LUBSV_BLK_US This bit is set to prevent the file from 
being used with a virtual array. 

LUBSV_FIELD_USE for this channel, set to 1 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
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; SIDE EFFECTS: 


“ 


i Adds symbols to the interpreter's symbol table, and/or modifies 
symbols already there. 


= 
BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_LREG : REF BLOCK C, BYTE); 


BUILTIN 


ACTUALCOUNT | 
AC TUALPARAMETER; 


— 

WAIANAE nonornorononornornn 
wOOOOO0OO0O 

NOUS Wr 


1 

1 i 

1 i 

1 i 

1 i 

1 : 

1 1 i 

1 j 

1 i 

1 : 

1 i 

1 i 

1 

1 i 

3 

130 ; 

1308 LOCAL i 

; 1309 FMP : REF BLOCK C, BYTE), i 

8 1310 NUMARGS, : 

84 1311 DECL, | 

see 1316 CHAN, i 
86 131 LEN, { 

287 1314 VAR, 3 
288 1315 OFFSET, 3 
334 1316 LUN_NO, : 
90 1317 RBF, 3 

3 OR ne 7 
$38 1320 FMP = .FP; | J 
294 1321 '¢ : 
344 1356 } Start at the beginning of the buffer. : 
391 13se : OFFSET = 0; 3 
300 1358 : Fetch, from the pecucliar argument List, the DECL and CHAN parameters. | 3 
01 1355 NUMARGS = ACTUALCOUNT (); 3 

$06 1329 CHAN = ACTUALPARAMETER (.NUMARGS); 3 
$07 i ? DECL = ACTUALPARAMETER (.NUMARGS = 1); é 
305 1336 : Compute the logical unit number corresponding to th- channel, and $ 
06 133 ' validate it. 3 

$3 1336 § : 

+4 1338 IF (.CHAN LSS 0) THEN BASSS$STOP (BAS$K_ILLIO_CHA); é 

11 1338 LUN_NO = (IF (.CHAN EQL 0) THEN LUBSK LUN_INPU ELSE .CHAN); 3 

\¢ 1339 BASSS$CB_PUSH (.LUN_NO, LUBS$K_ILUN MIND; j 

13 1340 CCB CISBSA_USER_FPJ = .FMP CSFSL_SAVE_FP); ; 

15 1366 If ( NOT .CCB CLUBSV_OPENED]) 3 

16 134 THEN : 

17 1344 IF (.LUN_NO LSS 0) 3 

18 1345 THEN é 

19 1 #6 BEGIN 3 

20 134 BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FP) ); ; 


~TITLE RASSRSTS_FIELD 
IDENT \1-023\ 


-PSECT _BASSDATA,NOEXE, PIC,2 


2 
BASSRSTS_FIELD 1hes6 -1984 01:07: AX-11 Bliss-32 V4.0-74 Pa Bi 
tie eR ae ts ra ee Me eee Re hd Pees Oe ve 8 1: 
3 1 134 END 3 
s g 1 28 ELSE : 
3 1 29 ecels 3 
: 324 1 BASSSSTOP_IO (BAS$K_I0_CHANOT); ; 
: $ : 26 END; . 
; , 24 IF (.CCB CLUBSA_CLOSE) EQLA 0) THEN CCB CLUBSA_CLOSEJ = BASSS$FIELD_KILL; 
; 3 i 26 IF (.CCB CLUBSA_CLOSE] NEQA BASSSFIELD_KILL) THEN BASS$STOP_IO (BASS$K_ILLILLACC); ; 
; i 1358 CCB CLUBSV_BLK_USE] = 1; | ; 
; 38 60 CCB CLUBSV_FIELD_USE] = 1; ; 
3 335 136¢ IF (.CCB CLUBSV_VA_USEJ) THEN BASS$STOP_IO (BASSK_ILLILLACC); ; 
: 337 1364 2 !4 : 
: $35 1392 § Fetch the buffer address and length for Later use : 
: 340 1367 2  RBF = .CCB FLUBSA_RBUF ADR); : 
; 341 1368 ; ,, RSZ = .CC8 LUBSW"RBUF ~SIZE); F 
; 378 1370 i Go through the optional arguments, Soees ten one each variable with : 
3 344 1371 3 ! its place in the 1/0 buffer. We scan the variables from left to ; 
> 345 1376 ! right in the FIELD statement in case the same variable appears twice: : 
: 348 17 2 it should end up with its right-most association. ; 
: 348 1375 § : ; 
: 349 1376 é DECR ARGNO FROM .NUMARGS =< 2 TO 1 BY 2 DO ; 
: 350 1377 BEGIN : 
: 351 1378 3 : 
3 $26 1379 3 LOCAL 3 
op ie ; 
; 355 1382 3 ; : 
3 396 1388 3 LEN = ACTUALPARAMETER (.ARGNO); F 
3 $25 138¢ 3 VAR = ACTUALPARAMETER (.ARGNO = 1); 2 
; 359 1386 3 IF (OFFSET # .LEN GTR .RSZ) THEN BASSS$STOP_IO (BASSK_FIEOVEBUF); : 
: 361 1388 ; BASSFIELD_VAR (.CHAN, .OFFSET, .LEN, .DECL, .VAR, .RBF); : 
: 362 1389 OFFSET = OFFSET + .LEN; ; 
; 63 1390 END: ; 
; 368 1382 '¢ : 
: “§ 1eez We are done with register CCB 3 
: 368 1395 é " BASS$CB_POP (); ; 
s 69 1398 RETURN; 3 
3; 390 1397 1 ND; ! end of BASSFIELD_SET : 
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00000000 00000000 00000 SYM$a_ROOT 


a 


| LONG 0, 0 
.EXTRN BASSSSTOP, BAS$S$STOP_I0 
“EXTRN LIBSGET_VM, LIBSFREE-VM 
*EXTRN THe BAS$$CB_POP 
SEXTRN BAS$$CB-GET COPY 
“EXTRN STRSEREE DX AS$RSET 
-EXTRN BASS$SOPEN Eko” Basak _MAXMEME XC 
-EXTRN BASSK_PROLOSS SOR 
EXTRN BASS$K~10 CHANOT 
«EXTRN BASSK_ ILETLLACG 
SEXTRN BASS$K~F IEOVEBU 
“EXTRN BASS$K KTILLFLEVAR 
*EXTRN BAS$K_ ILLIO_CHA 
.PSECT _BASSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 ENTRY BASSE LELD. SET, Save R2,R3.R4,R5,R6,R7,R8,- 
5A 000000006 00 9€ 00002 MOVAB Bagssster. 10, R10 
55 5D D0 00009 MOVL FP, FMP 
54 D4 0000C CLRL 
53 6C 9A 0000E MOVZBL (AP) 
56 6C43 00 00011 MOVL (AP) ENURARGS). CHAN 
59 FC AC43 DO 00015 MOVL § =4(AP)CNUMARGSJ, DECL 
56 DS OOOIA TSTL CHAN 
0B 18 0001C BGEG $ 
7E 006 Bf 9A OOOIE MOVZBL #BASSK_ILLIO_CHA, -(SP) 
000000006 00 1 FB 900¢2 CALLS #1, BASS$$STOP 
56 D5 00029 1$: TSTL CHAN 
05 12 00028 BNEG 2$ 
52 07 CE 90020 MNEGL #7, LUN_NO 
03 11 00030 BRB 
52 56 00 00032 28: MOVL CHAN, LUN_NO 
50 08 CE 00035 3$: MNEGL #8, R 
000000006 00 16 00038 JSB BAS$SCB_PUSH 
FF4C CB 0c AS DO OO05E MOVL 12(FMP)> U7 80(CCB) 
17 FC AB E8 00044 BLBS  -4(CCB). 5$ 
52 DS 00048 TSTL LUN. 
OC 18 O004A BGEG 460s 4$ 
0c AS DD 0004C PUSHL  12(FMP) 
000000006 00 1 FB O004F CALLS #1, BASSSOPEN_ZERO 
,. 3 0096 RB 5$° 
7E 006 8F 9A 00058 4s: MOVZBL BBASSK 19 CHANOT , -(SP) 
6A 01 FB Beer CALLS 5 BAS $SToP 
AG AB D3 99 F 5$: TSTL CB) 
06 12 00062 BNEQ 
AG AB 0000vV CF 9E 00064 MOVAB ” sates . -92¢CCB) 
50 0000v CF 9E 0006A 6$: MOVAB BASSS#IELD KILL, RO 
50 AG AB D1 O06F CMPL -92(CCB), RO 
07 13 000 3 BEQL «= 7$ 
7E 006 8F 9A 07 MOVZBL #BAS$K JLLILLACC, -(SP) 
6A 1 £ 79 CALLS #1, BASSSSTOP_IO 
FF AB 2 : O7C 7$: BISB ~1¢6¢B) 
Al A 40 =F 080 B1SB 4, -95(ccB) 
0 FF AB E9 0008 BLBC wrtecey: 8$ 
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Y 
BA S$RSTS_FIELD 16-Sep AX-11 Bliss-32 v4.0 
1-023 14-Sep 1382 or 97 Hy BASRTL Bene BASRSTSF I. 5 2:1 

7E 006 8F 9A 00089 MOVZBL M#BASSK_ILLILLACC, -(SP) 
6A 01 FB i CALLS 4 ia Ass STOP_IO 

: EC AB p 90 8$: MOVL “20cEC8). er 
2 D2 AB 3C 00094 MOVZWL =46(CCB). 

2 3 06 0 38 MOVL NUMARGS, akeno 

3 6042 00 $30 9$: MOVL (AP) CARGNOJ, LEN 

é FC AC42 DO 000A1 MOVL. =4(AP)CARGNO], VAR 

50 4 53 1 OA6 ADDL3 LEN, OFFSET, RO 
57 50 Di OOOAA CMPL R RS2Z 
07 15 000AD 10$ 
7E 006 8F 9A OOAF MOVZBL #BASSK FLEOVEBUF , -(SP) 
6A 1 FB 000B CALLS #1, BASS$STOP_IO 
0120 8F 6B 000B6 10$: PUSHR #*M<R5,RB> 
0208 8F BB OOOBA PUSHR #*M<R3.R9> 
4 DD 0008 PUSHL orf set 
6 DD 000C PUSHL 
0000v CF 06 FB 000C CALLS 4 BASSEIELD_ VAR 
4 53 CO 000¢ ADDL Hi 
2 02 ¢ 000A 11$:  SUBL 
ce 14 000CD BGTR 
000000006 16 OOOCF JSB BASSSCB_ PoP 
04 00005 RET 
3; Routine Size: 214 bytes, Routine Base: _BASSCODE + 0000 


; 7 1398 1 


wD 


2 


| BASSRSTS_FIELD 1h-s6 -1984 01:07: AX-11 Bliss-32 V4.0-74 Page 11 
A333 12-08-1382 0:07:38 EBASRTL SRE BAcRe tee 1 82:1 . (5) 
: 3r 1399 1 ROUTINE BASSFIELD_VAR ( ' *Declare’’ a field variable 
: 74 1400 1 CHAN ' The 1/0 channel whose buffer this variable references 
: 375 1401 1 OFFSET, i The offset in the buffer 
s rg 14 § 1 LEN, ' The number of bytes referenced 
as 1405 1 DECL, ' Scope of the declaration 
; 378 1404 1 VAR, ' Address of this variable's descriptor 
: 79 1405 1 RBF ' Start of the record buffer 
: 380 1406 1 ) : CALL_CCB NOVALUE = 
: 381 1407 1 
s +f 1408 1 !4+¢ 
3 th ret ! } FUNCTIONAL DESCRIPTION: 

; 385 1411 1! “Declares'’ a field variable. Such a variable refers to the 

; 386 lg 1! buffer of an 1/0 channel. To avoid leaving obsolete addresses 
5 Ht 141 1! in a user's program each reference to a FIELD variable is 

s 88 1414 1! interpreted. This routine puts the variable in the interpreter 
; 34 1eh2 : symbol table so it can be found by BASSFIELD_COPY. 

; 391 1417 1 =! FORMAL PARAMETERS: 

; 39 1418 1! 

; 39 1419 1! CHAN. rl.v An 1/0 channel. Need not be open yet. 

: 394 1230 3 OFFSET.rl.v The offset into that channel's buffer of the 

3 95 1421 1! start of the area referenced by the variable 

: 396 156 7% LEN.rl.v The number of oytes referenced by the variable 
: 397 196 ..4 DECL.rl.v An indication of the scope of the declaration 
; 398 1424 1! of the variable. This is a pointer to the major 
; 399 1425 1! frame (R11) the variable is in the scope o 
: 400 1426 1! the major procedure, or a pointer to the minor 
; 401 1427 1! frame (R10) if the variable is in the scope of 
: 402 1428 1! a DEF. 

; 403 \o¢3 1! VAR.wt.d The variable. Its storage is freed and it is 
; 404 1430 1! made to point to the buffer, so the compiled 

; 405 1431 1! code can do read accesses through it. 

: 406 1432 1! RBF .ra.v Address of the file's record buffer. 

; 407 14335 1! 

; 408 1434 1! EMPLICIT INPUTS: 

; 409 1435 1! 

3 $9 1638 : SYM$Q_ROOT.mq The queue of FIELD variables : the symbol table. 
: $i¢ 1438 1°! IMPLICIT OUTPUTS: 

: «641 1439 1! 

3s 6146 1440 1! SYM$Q_ROOT.mq 

; 4615 1441 1! 

: 418 1336 1 ! ROUTINE VALUE: 

: 41 1443 1 ! COMPLETION CODES: 

: 418 1444 1! 

; 619 1445 1! NONE 

: 4620 ery 1! 

: 421 144 1 ! SIDE EFFECTS: 

: rt 1448 1! , : 

3; 6 1449 1! Adds a symbol to the interpreter's symbol table, or modifies one 
: 424 1450 1! already there. 

: 425 1451 1! 

: 626 1636 1 !-- 

: 427 1455 1 

; 628 1454 § BEGIN 

: 629 1455 


. @ 
BASSRSTS_FIELD 16-Sep-1984 01:07: AX-11 Bliss-32 v4. 
na338 ¥ 12-808-18 4 9 aya BASRTL.SRC BAcASTEr 1 B82; 1 
; 430 1696 EXTERNAL REGISTER 
: . 1 148 CCB : REF BLOCK C, BYTE); 
: 238 1285 map 
3s 4 1460 VAR : REF BLOCK (8, BYTE]; 
s 635 1461 
: 4 1096 LOtm 
; 4 146 REF BLOCK CSYMSK_LENGTH, BYTE) FIELD (BASSFIELD_SYM), 
; 438 1464 Sr ARCH _DONE; 
3; 439 1465 
3: 440 1406 '¢ : 
: ret yet 4 ‘ If the symbol table root has not yet been initialized, initialize it. 
; «444 1469 
3 446 1470 IF (.SYM$Q_ROOT (0) EQL 0) 
3; 445 1471 THEN 
3: 446 be BEGIN 
: 647 147 
3: 448 1474 LOCAL 
> 449 1475 AST_STATUS; 
; 450 1476 3 
: 4651 1477 ; AST_STATUS = SSETAST (ENBFLG = 0); 
: ry 1478 
s 65 1479 & IF (.SYM$Q_ROOT [CO] EQL 0) 
3; 454 1480 3 THEN 
: 455 1481 4 BEGIN 
; 456 148¢ 4 SYM$Q_ROOT [0] = SYMSQ_ROOT [1] = SYM$Q_ROOT (0); 
: 457 148 END; 
; 458 1484 
; 459 1485 IF (.AST_STATUS EQL SSS$_WASSET) THEN SSETAST (ENBFLG = 
: 460 1486 
3: 461 1487 END; 
; 46 1488 
; 46 1489 1+ ; 
3 ree yes : Search the queue to see if this variable is already on it. 
: 466 1636 SYM = .SYM$Q_ROOT [0]; 
: 467 149 SEARCH_DONE = 0; 
; 468 1494 
: 4669 1495 dO 
; 470 1638 BEGIN 
3; 471 149 
; 67 1498 4 IF (.SYM EQLA SYM$Q_ROOT) 
; 67 1499 
> 674 1500 SEARCH_DONE = 
3: 475 1501 ELSE 
3: 476 150. 
; 677 150 4 IF (.SYM CSYMSA_VAR] EQLA .VAR) 
3: 47 15 3 HEN 
3 of HF 5 ? BEGIN 
: cB 1200 ? IF (.SYM CSYM$SV_INVALID]) THEN BASSS$STOP_IO (BASSK_ILLFIEVAR); 
: 6 3 129% 4 SEARCH_DONE = 3; 
: ops 1844 ; me 
: & 1842 IF ( NOT .SEARCH_DONE) THEN SYM = .SYM CSYMSA_NEXT); 


2 
BASSRSTS_FIELD 18- -Sep-1984 01:07: AX-11 Blis Page 13 
R3RSS- 1or8ep=} 88s 94:80:38 EBXsare sae leacnstsr1 692: 9° 65) 
3; 487 1513 
: 488 1514 END 
; 4 9 1 5 UNTIL (.SEARCH_DONE); 
; 491 5 IF (.SEARCH_DUNE Eu. 1) 
: 49 1 § BEGIN 
: 496 1520 '¢ 
; rh ; 1 We must create a symbol table entry. 
: i99 1 g 
: 49 1524 BUILTIN 
; $80 ; 5 INSQUE; 
; 201 1 $ LOCA 
3 0¢ 1528 GET_VM STATUS, 
; 203 4 INSGUE ~ADDR; 
; 305 1 GET_VM_STATUS = LIBSGET_VM (ZREF (SYMSK_LENGTH), SYM); 
; $07 é IF ( NOT .GET_VM_STATUS) THEN BAS$S$STOP_I0 (BASSK_MAXMEMEXC); 
: 209 1535 INSQUE_ADDR = SYM$Q_ROOT (1); 
3 319 : $ as INSQUE~(.SYM, ..INSGUE_ADDR); ' Tail of queue 
; 21g : : Make sure the string is empty. 
; 514 1540 3 STRSFREE1_DX (.VAR); 
: a3? : 1 END; 
: 219 1 § \¢ 
3 218 : 3 Fill in the symbol table entry 
: 520 1 6 " $YM [CSYMSL_CHAN) = 
; 521 154 SYM CSYMSL~ “OFFSETD = : nor Er: 
3 2¢ 1548 Sym CSYMSLLEN 
; 52 1549 SYM CSYMSL~ =pECL = a © 
: 524 1550 SYM CSYMSA-VAR) = .VAR: 
; 325 1551 SYM CSYMSV~INVA * 
: 526 135¢ VAR CDSCSWLENGTH] = MAX (0, .LEN); 
: 3¢7 55 VAR CDSC$B-CLASS) = peck CLASS_S; 
; 528 1554 VAR DSCSAL POINTER) = .RBF + .OFFSET; 
; 3¢9 1555 RET 
;. > 1556 END; ! end of BASSFIELD_VAR 
-EXTRN SYSSSETAST 
7C 00000 BASSFIELD_VAR: 
eptaie ° -@ORD Save R2,R3,R4, +e R6 3: 1399 
00 ates 99 9E 02 MOVAB BASSSSTOP_[0 ; 
9900006 9E MOVAB SYSS$SETAST, 06" ; 
44 19 MOV SY nso ROOT, R4 ; 
1A TSTL $vAS0_RooT : 1470 
0 1c $ 


wh tT 


—— 


H 2 
BASSRSTS_FIELD $-Se9- 
4-023 at 9 
7E D4 
65 Oi F 
oA 
51 4 9 
046 AG ‘7a 
3 6 > 1s 
g 9 
1 oO 
65 1 4 
04 AE $4 i) 23: 
3 D4 
38 04 AE 44 38: 
5 $s . 
50 ¢ ) 
i: 
53 1 OD 
15 11 
14 AC 18 A2 01 4$: 
AS gd 
7 1¢ A 3 
E 00G 8F 9A 
6 we 
5 ; i) 5$: 
07 E 6$: 
06 «OA 9 D 
D E 
01 53 D1 7$: 
2— 12 
04 oF OF 
04 AE 2 b0 
000000006 0 ™ 03 4 
$9 2 EB 
7E 00G 8F 9A 
66 1 €B 
50 06 AG 9E 8$: 
0c B60 04 BE OE 
14 AC OD 
000000006 00 01 FB 
50 4 AE 9$: 
08 a0 4 aC 70 
10 a0 on Be, 
5 4 AC D 
18 Ad 31 4 
1¢ 43 1 A 
5 0c AC ? 
6 04 4 
61 108: 
03 al 1 
04 Al 18 AC 08 AC ry 


; Routine Size: 213 bytes, Routine Base: _BASSCODE + 00D6 


7:30 AX-11 Bliss-32 
BASRTL.SRCJBAS east 


nn 
vASo_ 
$ 


$0, ROOT 
tsa @ hoot +4 


SYM 
Ri, $ 

R1 co 

Ast. STATUS. "9 
2 

rt 

#1 


) 
gVsSee rast 


SYM$Q_ROOT 
SEARCA_DONE 


SYM, R2 
Sym$Q_ROOT, RO 
R2, RO 
#1, SEARCH_DONE 
4(R2), VAR 

4 


BASSK IL 

#BASSK “HELE LEVAR. -(SP) 
#1, 10 

a3. ates DORE 
Fy ae - 
(R2) 

SEARCH H DONE, 3$ 
ae DONE, #1 


a? 4(SP) 
4 


#2, LIBSGET_vM | 
GEf_VM_STATOS, 8$ 
#BASSK"MAXMEMEXC, -(SP) 
#. BASSSSTOP. 10 

Q_ROOT+4, ~INSQUE_ADDR 
SSYR. “a0 (INSQUE_ADDRI 


#1, STRSFREE1_DXx 


EN, 16(RO) 
VAR, Ri 
R1, 4(R0) 
#1. 28(RO) 
" N, RO 
$ 
R 
RO, (R1) 
#i, 3(R1) 
OFFSET, RBF, 4(R1) 


oT bS2:1 ne 


1477 
1479 
1482 


; 
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; 531 1557 1 


ae 
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BASSRSTS FIELD 1b-s6 -1984 01:07: AX-11 Bliss-32 V4.0-74 Pa 16 a: 
iS _ Fe: 12-80-1382 94390388 BASRTL.SRC akerstér i 6$2:1 te (6) 1 
; 3 1 38 1 GLOBAL ROUTINE BASSFIELD_CLEAR ( ! Undeclare a field variable : 
: 1 1 VAR ! The variable being cleared : 
: 5 : rs : ) : NOVALUE = : 
: 1 6¢ 1 t+ ; 
; ; o7 : FUNCTIONAL DESCRIPTION: : 
: 40 1565 1! Undeclare a possible FIELD variable. This routine is called ; 
: 541 1 $8 1! ior to any BASIC statement that causes a field variable to 3 
3 ¢g 1567 1! ose its FIELD attribute, if that variable has a FIELD 3 
; tz ; 28 : statement associated with it anywhere in the program. : 
; 4s 2 | FORMAL PARAMETERS: 
: <3 1 a 1! VAR. at.d The variable. Only the address of its : 
3 re : a ! } descriptor is used, to scan the symbol table. : 
; 30 1375 { IMPLICIT \NPUTS: 
; 226 He : SYM$Q_ROOT.mq The queue of FIELD variables : the symbol table. ; 
; 384 137 1} IMPLICIT OUTPUTS: : 
; 336 1381 SYM$Q_ROOT.mq : 
; 336 1388 1 | ROUTINE VALUE: : 
3 59 1584 1 ! COMPLETION CODES: 3 
; 560 1585 1! : 
Boe ae Bt ea : 
; 508 1388 i SIDE EFFECTS: ; 
: 565 1590 1! May remove a symbol from the symbol table. : 
: 366 1591 1! 3 
s 367 1238 1 !-- 3 
; 568 1593 1 : 
; 569 1594 BEGIN 3 
RS ww : 
; 278 1597 VAR : REF BLOCK (8, BYTE); : 
: 37 1399 LOCAL : 
: 575 1600 SYM : REF BLOCK CSYMSK_LENGTH, BYTE) FIELD (BASSFIELD_SYM), ; 
: 6 160) SEARCH_DONE ; 3 
:  3oe 1808 5 16 
; 229 1604 If the symbol table root has not yet been initialized, initialize it. i 
: 581 160 
3 286 1807 IF (.SYM$Q_ROOT [CO] EQL 0) i 
: 584 1809 BEGIN : 
. cn 2 
; 387 lore AST_STATUS; 
: 589 1614 AST_STATUS = SSETAST (ENBFLG = 0); : 


SEARCH_DONE = 1 
LSE 


K 2 
BASSRSTS_FIELD 16-Sep-1984 01:07: AX-11 Bliss-32 V4.0-74 
wth 12-808 88d 0 07338 BASRTL.SRC BAcRe Tri bS2:1 
90 615 
91 $18 IF (.SYM$Q_ROOT (CO) EQL 0) 
38 61 THEN 
9 218 BEGIN 
94 61 SYM$Q_ROOT CO] = SYM$Q_ROOT [C1] = SYM$Q_ROOT [0]; 
Big = 
44 ? § IF (.AST_STATUS EQL SS$_WASSET) THEN SSETAST (ENBFLG = 1); 
599 624 END; 
600 625 
601 6 $ '¢ 
if ? Search the symbol table, removing this variable if it is present. 
oO 629 SYM = .SYM$Q_ROOT [0]; 
5 630 SEARCH_DONE = 0; 
606 631 
607 6 ¢ dO 
608 6 BEGIN 
609 634 
1 ° 5 IF (.SYM EQLA SYM$Q_ROOT) 
6 
6 
6 


ee ee ee ee ee ed a ed ed wd od = td = wd = 2 = = 8 
RNRIWWA RE BR RRR ERR ERE PAPE UO NUWII  P 


610 
611 
ol¢ 
61 8 
614 39 
615 640 IF (.SYM CSYMSA_VAR} EQL .VAR) 
616 641 THEN 
617 4 BEGIN 
618 64 '¢ 
ei? ote We must delete this symbol from the symbol table. 
e31 068 
6 § 64 BUILTIN 
6 648 REMQUE; 
624 649 
625 650 OCAL 
626 651 FREE_VM_STATUS, 
BR a 
? 9 $38 IF (.SYM CSYMSV_INVALID]) THEN BASSS$STOP (BASS$K_ILLFIEVAR); 
e 1 636 REMQUE (.SYM, TEMP); 
: 65 VAR CDSC$W_LENGTH) = 0; 
6 638 VAR CDSC$B_CLASS] = DSCSK_CLASS_D; 
6 65 VAR Dacen TOLMER) = 0; 
635 o39 FREE_VM_STATUS = LIBSFREE_vM (ZREF (SYMSK_LENGTH), TEMP); 
es? 666 IF ( NOT .FREE_VM_STATUS) THEN BASSSSTOP (BASSK_PROLOSSOR); 
639 664 SEARCH_DONE = 1 
640 665 END 
641 666 ELSE 
O46 66 SYM = .SYM CSYMSA_NEXT]; 
64 668 
644 END 
645 670 UNTIL (.SEARCH_DONE); 
646 671 


—Ww ! 


a a i a _ ee — = . - 
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; 647 1672 #1 END; ! end of BASSFIELD_CLEAR 


007¢ .ENTRY BASSFIELD_CLEAR, Save R2,R3,R4,R5,R6 : 155 
g 8 6° 006 8 13 O09 MOV BASSSSTOP, R6 : " 
006 3 0 OVAB SYSSSETAST, RS : 
0000000' €F 919 OVAg SYM$Q_RCOT, R4 : 
£ 8 Ce 0001 SuBL : 
4 b OO1A STL syfs_roor : 
D 1C BNEQ $ : 
7E D 001 CLRL ss = (SP) + 1614 
£5 01 Fe CALLS #1, SYSSSETAST : 
64 D5 000 TSTL  $YMS$Q_ROOT + 1616 
A 12 000 BNEQ : 
51 4 3 0027 MOVAB Symsa ROOT + 1619 
06 Ab 1 D0 0002A MOVL singe "Rootes : 
64 1 D0 0002€ MOVL YM$Q~ ROOT : 
09 Q D1 0031 1$ CMPL i Star Tus, + 1622 
2 000 BNEQ eS 3 
1 0D 000 PUSHL a : 
$5 1 FB 00 CALLS #1, SYSS$SETAST : 
2 $4 D 0038 28: MOVL §§ SYM$Q_ROOT, SYM + 1629 
ps 00 CLRL SEARCRA_DONE : 16 
50 4 9€ 4 3$: MOVAB SYMS$Q ROOT, RO + 1635 
50 2 D1 0004 CMPL YM, RO : 
: 13 0004 BEQL 4 : 
04 ac 18 A2 D1 0004 CMPL 4(SYM), VAR + 1640 
3 lg 0040 BNEQ & : 
7 1c OA £ O04F BLBC B(SY > 1654. 
E 006 8F 9A 00 33 MOVZBL mBASSK tie -(SP) : 
be, 1 FB 00 CALLS BAS : | 
06 A 2 OF 0005A 4$: REMQUE ts + 1656 
5 06 AC dO O05 MOVL VAR ko’ : 1657 | 
60 BA 906 CLRW Ss (RO ; | 
03 ad 02 0 MOVB #2, 3(RO) : 1658. 
04 AO 04 00068 CLRL =e CR > 1659 
04 AE 9F 000 PUS re : 1660. 
06 AE 2 bo 9006 MOVL #32, 4(SP) ; 
06 A 00 PUSHAB 4(S : | 
000000006 00 FB 007 CALLS #2, LIBSFREE yn : 
? . gore BLBS FREE VM STATOS + 1662 
E 006 8F 9A 0007F MOVZBL aOASSK pROLOsséR, -(SP) : 
66 1 FB 0008 CALLS BASSSST ; 
5 1 D 5$: MOVL Ag BE ARCH NOONE + 1664 
3 1 9 BRB 7$° 3 
52 $¢ DO 00088 6s: MOVL (SYM), SYM > 1667 | 
AF c9 OO8E $: BLBC § SEARCH_DONE, 3$ : 1670. 
4 0009 RET + 1672 
3; Routine Size: 146 bytes, Routine Base: _BASSCODE + O1AB 


; 648 1673 1 


7 r 
BASSRSTS_FIELD 16-Sep-1984 01:07: AX-11 Bliss-32 V4.0-74 Page 19 E 
e538 ss 13-808- 1382 07:38 BASRTL.SRC BASRetse 1 682:1 . Ry 1 
; 650 1674 1 GLOBAL ROUTINE BASSFIELD_COPY ( ' copy to or from a FIELD variable i 
; 651 1675 1 STMT_TYPE, ! Either LSET or RSET ‘ 
; ¢ ¢ 1926 1 ° ! The destination variable F 
3; 6 1677 1 VA ! The source variable 3 
> 654 1978 1 ) : NOVALUE = 3 
; 655 1679 #1 3 
; 6 $ 1680 1 !+4¢ 3 
; eet 108) : FUNCTIONAL DESCRIPTION: : 
; 659 188 1} Copies between two string variables. One or the other may : 
; 660 1684 1! by FIELD variables, but not both. Because the compiler cannot 3 
; 661 1685 1! be sure if a FIELD statement has been issued to a variable | 3 
: 066 1686 1! (since it cannot trace proeres flow) it is possible that § 
; 66 1687 1! neither variable is FIELD. ‘ 
; 664 1688 1! 3 
3; 665 1689 1 ! FORMAL PARAMETERS: ; 
: 666 1690 1! 3 
; 667 1691 1! STMT_TYPE.rl.v 0 = this is am LSET statement, 1 = RSET | : 
; 668 1938 1! VAR2.wt.dx The destination of the copy. This may be a 3 
: 669 1693 1! FIELD variable. 3 
; 670 1694 1! VARI. rt.dx The source for the copy. This may be a FIELD : 
s 671 1695 1! variable. : 
; $7 1998 : : IMPLICIT INPUTS: | : 
; or 1o%3 ' SYM$Q_ROOT.rq The queue of FIELD variables : the symbol table. : 
; 676 1700 1 ! IMPLICIT OUTPUTS: 3 
; 677 1701 1! : 
; 678 A 1! NONE 3 
3; 679 1703 1! 3 
3; 680 1704 1 ! ROUTINE VALUE: : 
; 681 1705 1 ! COMPLETION CODES: : 
; 1706 1! 3 
; 68 1707 1! NONE 3 
; 684 1708 1! 3 
> 685 1709 1 ! SIDE EFFECTS: 3 
3; 686 1710 1! 3 
3; 687 ah ee eS May write into or read from an 1/0 buffer. 3 
; 688 Hat 1! : 
3; 689 1713 1 !-- 3 
; 690 1714 1 ‘ 
3; 6691 1715 BEGIN d 
; 69 1716 d 
: 69 171 BUILTIN : 
3; 694 iris FP; ‘ 
3; 695 171 ; 
; 696 1720 GLOBAL REGISTER ; 
; 697 1721 CCB = K_CCB_REG : REF BLOCK C, BYTE); ; 
; 698 17 ; i 
; 699 17 P i 
; 700 1724 VAR1 : REF BLOCK fe. BYTE), F 
; mh Ht 5 VAR2 : REF BLOCK (8, BYTE); F 
; 70 17 $ LOCAL i 
: 704 17 3 FMP : REF BLOCK f BYTE) ‘ 
3: 705 17 SYM : REF BLOCK SymSk_LENGTH, BYTE] FIELD (BASSFIELD_SYM), { 
Bom 1730 SEARCH_DONE, i 


sss sss ——$__—_— — . — 
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BASSRSTS FIELD 16-Sep-1984 01:07: AX-11 Bliss-32 V4.0-74 P 0 
1-025 ~*~ 12-8 08- 1 3b as A BASRIL SREIBASRS TSE T 682: 1 ae (33 


—m 


707 17 VAR1_DESC : BLOCK fg. BYTE), 
70 17 VAR2_DESC : BLOCK BYTE 
7 17 VARI-DESC_ADR : REF BLOCK é. BYTE. 
71 17 VARZ—DESC"ADR : REF BLOCK (8, BYTE). 
711 17 VAR1_ CHAN, 
at 17 VAR2_CHAN; 
71 7 
714 7 FMP = .FP; 
715 7 '¢ 
rig oe } If the symbol table root has not yet been initialized, initialize it. 
718 74 
£38 a IF (.SYM$Q_ROOT (OJ EQL 0) 
rg 74 BEGIN 
1$¢ 74 
7 74 LOCAL 
, 4 r AST_STATUS; | 
: Le AST_STATUS = $SETAST (ENBFLG = 0); 
728 75 
44 75 
730 75 BEGIN 
731 75 SYM$Q_ROOT [OJ] = SYM$Q_ROOT [1] = SYM$Q_ROOT [0]; 
ree e END; 
4 R IF (.AST STATUS EQL SS$_WASSET) THEN SSETAST (ENBFLG = Ws 
76 END; 


+ 


Search the queue to see if the input variable is on it. 


SYM = .SYM$Q_ROOT [0]; 
SEARCH_DONE = 0; 


BEGIN 
IF (.SYM EQLA SYM$Q_ROOT) 
SEARCH_DONE = 1 

LSE 


IF (.SYM CSYMSA_VAR] EQLA .VAR1) THEN SEARCH_DONE = 3; 
IF ( NOT .SEARCH_DONE) THEN SYM = .SYM CSYMSA_NEXT); 


UNTIL (.SEARCH_DONE) ; 
IF (.SEARCH_DONE EQL 1) 
6 BEGIN 
! The variable is not in the symbol table. That must mean that it 
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SNS NSS SSS SNS 


IF (.SYM$Q_ROOT [0] EQL 0) : | 
THEN | 


STS_FIELD 


“I 
Co 


CYSWN—"OOONOUS 


809 


~“ 

oO 

im 
ed a ed ead ed eed ea cad ed ee a ae ee ce ce a cc a a a a a a ee ct ee ee ed ed ee ee ee ee ed ee ed en ee ec ee ee ee eee cl el cel ee cc ce cD 
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8 3 

16-Sep-1984 01:07: AX-11 Bliss-32 V4. 

12-88-1382 01:97:38 BASRTL. SRC IBASRSTS 
is not a FIELD variable. 


VAR1_DESC_ADR = .VAR1; 
vA I=CHAN= 0; 


Don't touch a variable marked invalid. 


IF (.SYM CSYM$SV_INVALID]) THEN BASS$S$STOP (BASSK_ILLFIEVAR); 
\¢ 
The variable is in the symbol table. Construct a descriptor for it. 


VAR1 DESC; 


VAR1-DESC CDSC$W_LENGTH] = MAX (O, .SYM CSYMSL_LENJ); 
VAR1~DESC DSC$B_DTYPE] = DSC$K_DTYPE_T; 

VARI-DESC CDSCSB-CLASS] = DSCSK-CLASS-S; 

VARI~CHAN = .SYM”CSYMSL_CHANJ; 


IF (.VAR1_CHAN EQL 0) THEN VAR1_CHAN = LUBSK_LUN_INPU; 

BAS$$CB_PUSH (.VAR1_CHAN, LUBSK_LUN_INPU); 

CCB CISBSA_USER_FPJ~= .FMP CSFSC_SAVE_FPJ; 

VAR1_DESC [CDSCSA_POINTER] = .CCB-CLUBSA_RBUF_ADR] + .SYM CSYMSL_OFFSET]; 

IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$STOP (BAS$K_IO_CHANOT); 

E {.¢c8 CLUBSW_RBUF _SIZE] LSSU .SYM CSYMSL_OFFSET] + .SYM CSYMS$L_LEN]) 
BAS$S$STOP_IO (BASS$K_F IEOVEBUF); 

END; 


1+ 
: Search the queue to see if the output variable is on it. 


SYM = .SYM$Q_ROOT (0); 
SEARCH_DONE = 0; 


dO 
BEGIN 


IF _(.SYM EQLA SYMSQ_ROOT) 
SEARCH_DONE = 1 
LSE 


IF (.SYM CSYMS$A_VAR] EQLA .VAR2) THEN SEARCH_DONE = 3; 
IF ( NOT .SEARCH_DONE) THEN SYM = .SYM CSYMSA_NEXT); 


END 
UNTIL (.SEARCH_DONE); 


0 
FI 


-7 


832;1 


ree 


984 BASR 


, ; 
eagysts ie NESICISM GLACE GASPS eH 


: 1 196? IF (.SEARCH_DONE EQL 1) 

$ ¢ 1 r¢ THEN 

$ is BEGIN 

; 824 1848 ! 

; 825 1849 ! The variable is not in the symbol table. That must mean that it 

3 $ $ 1329 ' is not a FIELD variable. 

: 828 1858 VAR2_DESC_ADR = .VAR2; 

3; 829 185 VAR2_CHAN = 0; 

; 8350 1854 END 

; 831 1855 ELSE 

: B38 1889 —— 

; 834 1858 IF (.SYM CSYM$V_INVALID]) THEN BASSSSTOP (BASSK_ILLFIEVAR); 
: 836 1860 3 !+ 
: tH 190! The variable is in the symbol table. Construct a descriptor for it. 
: 839 i8e8 3 VAR2_DESC_ADR = VAR2_DESC; 

; 840 1864 VAR2_DESC DSC$W_LENGTHI = MAX (0, .SYM CSYM$L_LEN]); 

3; «6841 1865 3 VAR2_DESC CDSCS$B_DTYPE] = DSCSK_DTYPE_T; 

; 842 1866 ; VAR2_DESC CDSC$B_CLASS] = DSCSK_CLASS_S; 

; oh H+ +24 VAR2_CHAN = .SYM CSYMSL_CHAN); 

; Bee 1869 ; IF (.VAR2_CHAN EQL 0) THEN VAR2_CHAN = LUBSK_LUN_INPU; 

3 847 1871 3 BASS$$CB_PUSH (.VAR2_CHAN, LUBS$K_LUN_INPU); 

: 848 1872 3 CCB _CISBSA_USER_FPJ-= .FMP CSFSC_SAVE _FPJ; 

; Be) 13%? 3 VAR2_DESC CDSCSA_POINTER] = .CCB CLUBSA_RBUF_ADR] + .SYM CSYMSL_OFFSETI; 
; 22) 137? 3 IF ( NOT .CCB CLUBSV_OPENEDJ) THEN BASS$STOP (BAS$K_10_CHANOT); 
: 538 1377 4 IF (.CCB CLUBSW_RBUF_SIZE) LSSU .SYM CSYMSL_OFFSET] + .SYM CSYMSL_LENJ) 
: 855 1879 § BASSSSTOP_IO (BASS$K_F 1EOVEBUF); 

; 856 1880 

; 857 1881 END; 

: 858 1os6 

> 859 188 1+ 

; 860 1884 2 ! Copy from the input variable to the output variable. 

3 38) rH 2 } We must observe the semantics of the statement type. 

: 863 1887 2 

; 36% 1888 CASE .STMT_TYPE FROM STMT_TYPE_LSET TO STMT_TYPE_RSET OF 

; 5 1889 SET 

: 866 1890 

3; 867 1891 CSTMT_TYPE_LSET) : 

g ¥e4 9.44 STRSCOPY_DX (.VAR2_DESC_ADR, .VAR1_DESC_ADR); 

; 890 1894 CSTMT_TYPE_RSET) : 

3; 871 1895 BASSRSET (.VAR2_DESC_ADR, .VAR1_DESC_ADR); 

s a76 1998 TES; 

3; 87 ie 

: 74 1 38 '¢ 

3: 875 18 ! Release register CCB 

3 76 1900 te 

; 877 1901 


—————————_—_ so eee 


d 3 
| BASSRSTS_FIELD 16-Sep-1984 01:07: AX-11 Bliss-32 V4.0-74 Page 23 
10838 1a-Sep-19 4 9:97:38 BASRTL ERE TBARRETSe 1 69251 . 3 
: 87 190 IF (.VAR2_CHAN NEQ 0) 
; a8 1398 THEN “3 
; 880 1904 BEGIN 
: 881 1905 BASS$SCB_GET (); 
; 88 1906 BASS$CB_POP (); 
; 88 1907 END; 
; 884 1208 
: 885 1 IF (.VAR1_CHAN NEQ 0) 
; 8 1910 THEN 
; 88 1911 BEGIN 
: 888 191¢ BAS$$CB_GET (); 
: 889 191 BAS$$CB_POP (): 
: 890 1914 END; 
: 891 1915 
; 892 1916 1 END; ! end of BASSFIELD_COPY 
OFFC 00000 ENTRY BASSE IELD COPY, Save R2,R3.R4,R5,.R6,R7,.RB,- ; 1674 
SA 900000006 00 9€ 00002 MOVAB SySSsefAst, R10 : 
59 000000006 00 9€ 00009 MOVAB BASS$SSTOP, R : 
58 00000000' EF 9 90010 MOV SYM$Q_ROOT, R : 
5E 10 C2 0001 SUBL #16, SP : 
55 5D DO OOO1A MOVL > : 173 
68 D5 0001D TSTL  S$YM$Q_ROOT + 17% 
1D 12 O001F BNEG  2$ : 
7E D4 00021 CLRL = = (SP) : 1750 
6A 01 F 999 3 CALLS #1, SYSSSETAST ; 
68 05 00026 TSTL | SYM$Q_ROOT + 1752 
OA 12 00028 BNEQ : 
51 58 4 0002A MOVAB SYM$Q_ROOT, R1 : 1755 
04 AB 51 00 0002D MOVL RI, SYMSG_ROOT+4 ; 
ry 51 dO 00031 MOVL 1, SYM$Q~ROOT : | 
09 30 D1 990 1$ CMPL AST_STATUS, #9 : 1758 
05 12 00037 BNEG $ : 
01 DD 00039 PUSHL #1 ; | 
6A 01 FB 0038 CALLS #1, SYSSSETAST : 
53 68 DO 0003E 28: MOVL SYM$Q ROOT, SYM : 1765 
54 04 00041 CLRL  SEARCR_DONE : 1766 
50 6 9 43 38: MOVAB SYM$Q_ ROOT, RO : 1771 
50 p 9 46 CMPL SYM, RO : 
. 4 BNEG ; 
54 1 pO 00048 MOVL #1, SEARCH_DONE : 1773 
A 11 0004 BRB 5$ : 
oc ac 18 A3 D1 00050 4s: CMPL 4(SYM), VARI : 1776 
1 0 BNEQ 3 
54 D MOVL #3, SEARCH_DONE ; 
4 €£ A 5S: BLBS § SEARCH_DONE, 6$ ; 1778 
3 pO 0005p MOVL (SYM), "SYM : 
0 coe BLBC § SEARCH_DONE, 3$ : 1781 
1 4 D1 63: CMPL ARCH"DONE, #1 : 1783 
08 if BNEQ ; 
57 Oc ac D MOVL §VAR1, VART_DESC_ADR : 1790 
56 D4 0006C CLRL —«VAR1_ CHAN : 1791 


SSS ———_—_—_________ - — oa 


| | 
| 3 ) 
BASSRSTS_FIELD these -1984 01:07: AX-11 Bliss-32 V4.0-742 Pa 4 +B 

bet 1279 08- 138 te ee YBASRTL SRe BASRSTSF1.B82:1 ™ 3 1 

67 11 BRB 12$ : 1783 : 

97 £ AB 34 $f 7$: BLBC © 28(SYM), 8$ + 1799 ; 

E 006 a A 00074 MCVZBL M#BASS$K_ILLFIEVAR, -(SP) : ; 

1 FB 00078 CALLS #1, BASSS$STOP : ; 

? 08 AE 9 O78 8$: MOVAB VAR1_ DESC, VAR1_DESC_ADR + 1804 ; 

0 10 A : 7F MOVL Jo(STM), RO + 1805 ; 

9 BGEG 60s 9 : ; 

D4 CLRAL R 5 § 

08 A€ BO 00087 9$ MOV RO, VAR1_DESC : : 

OA AE 0106 F BO 000 MOVW #270, VAR1_DESC+2 + 1806 : 

56 08 A3 00 00091 MOVL  8(SYM), VAR1_CHAN > 180 ; 

1 093 BNEQ 198 > 1810. : 

6 C 9 MNEGL #7, VAR1_CHAN : F 

0 7 cf O9A 108: MNEGL #7, RO : 1812 3 

2 DO 00090 MOVL - VAR1_CHAN, R2 ; ; 

000000006 0 if} OA0 JSB BAS$S$CB_PUSH : ; 

FF4C CB OC AS DO 000A6 MOVL. 12(FMP)> -180(CCB) + 1813 3 

OC AE EC AB OC a3 C1 OOOA ADDL3 12(SYM), -20(CCB), VAR1_DESC+4 + 1814 ; 

: FC OA 34 008 BLBS -4(CCB). ; + 1816 ; 

E 006 8F 9A 0008 MOVZBL #BAS$K_{[0 CHANOT, -(SP) : ; 

6 01 FB 000 CALLS #1, BASSSSTOP © : ; 

50 oc «AB 10 A3 C1 OOOBE 11$: ADDL3 16(SYM), 12(SYM), RO : 1818 : 

50 D2 AB 10 00 ED 0004 CMP2V #0, #16, =-46(CCBS, RO : ; 

B 1€ OOOCA BGEQU § : ; 

7E 006 ar 9A MOVZBL M#BASSK_FIEOVEBUF, -(SP) > 1820 : 

000000006 99 1 FB CALLS #1, BASSS$STOP_IO ; 3 

8 DO 00007 128 MOVL YM$Q_ROOT, SYM + 1827 ; 

4 D4 OOODA CLRL SEARCA_DONE : 18 8 : 

50 68 9 CODC 13$:  MOVAB SYM$Q ROOT, RO : 1833) : 

50 53 D1 OO0DF CMPL = SYM, RO : : 

05 12 000E2 BNEQ 3 | ; 

54 01 DO 000E4 MOVL #1, SEARCH_DONE > 1835_ : 

OA 11 000E7 BRB 15 ; ! : 

08 ac 18 A3 01 OO0ED 148 CMPL §24(SYM), VAR2 : 1838) : 

0 i O0E BNEQ 13 ; 3 

54 03 DO O00F MOVL #3, SEARCH_DONE : 3 

06 54 €8 OOOF3 158 BLBS § SEARCH_DONE, 16$ + 1840 | : 

3 09 O0FS MOVL (SYM), “SY ; : 

0 4 €9 000F9 BLBC § SEARCH_DONE, 13$ > 1843) : 

1 4 D1 OOOFC 16%: CMPL SEARCH_DONE #1 > 1845 | : 

08 is OOF F BNEQ 17$ : 3 

54 08 AC OD 9191 MOVL VAR, VAR2_DESC_ADR : 1852) 3 

52 04 00105 CLRL VAR2_CHAN ; 18535) : 

62 11 00107 BRB + 184 : 

97 ae | 9 109 17$:  BLBC (SYM), 18$ : 1858. 3 

006 8F 9A 001 MOV #BASSK_ILLFIEVAR, -(SP) ; | 3 

| 6 1 £B 00111 CALLS #1, BASS$S$STOP : | : 

54 6€ 9E 00114 18$:  MOVAB VAR2 DESC, VAR2_DESC_ADR > 1863 | : 

50 10 A’ dO 00117 MOVL 1<STM), RO > 1864_ ; 

18 00118 BGEG 19S ; : 

6E 8 HP 19$ nov 4 VAR2_DESC : ; 

02 AE 0106 F BO 001 : MOVW #270, VARS ESC+2 + 1865 ; 

5 0 A 1 MOVL (SYM), VAR2_CHAN : 1867 : 

5 p CE 15¢ ONE GL #7, VAR2_CHAN Bead 

| 36 7 CE 001 ‘ 208 MNEGL #7. RO : 1871 ; 


| r 
F 3 
BASSRSTS_FIELD 16-Sep-1984 01:07: AX-11 Bliss-32 V4.0-74 Page 25 B 
bets akties rik Ot ete Re Sg Pt Et re oo ge 8 1 
000000006 00 1 134 J$B BASSSC _PUSH : | 
FF4C CB C AS 00 0013A MOVL (FMP); =180(CCB) : 1872 
04 AE EC AB gk ae. 149 ADDL3 120(SYM); 5 (CCB), VAR2_DESC+4 : 1873. 
9: FC AB 8 14 BLBS  -4(CCB) + 1875 
006 ar A 00148 MOVZBL #BAS K {o CHANOT, =(SP) : 
6 } re 14F CALLS #1, BASSS$STOP : 
53 oc A’ 10 Ad C1 001 ; 21$ ADDL3 16(SYM), 12(SYM), R3 + 1877 | 
53 D2 AB 10 0 €ED 001 CMPZV #16, -46(CCBS, : 
B 1€ 001 : BGEQU ; 
43 006 BF 9A 0016 MOVZBL S$K_FIEOVEBUF, -(SP) : 1879) 
1 000000006 Fok Ae EF GENES gee: AMEE han MURES oc! a 
0011 0004 8198 $e: WORD 4$- ts epe: : | 
0090 af BB 00174 24$:  PUSHR #*M<R4,R7> : 1892 
000000006 00 2 FB 00178 CALLS #2, STRSCOPY_DXx : 
B 11 OO17F BRB 26$ ; 
0090 8F BB 00181 25$:  PUSHR #*M<R4,R7> + 1895. 
000000006 00 : FB 00185 CALLS #2, BASSRSET : | 
DS 0018C 26$:  =TST VAR2_CHAN : 1902 
oc 1 901 BEQL 278 : | 
000000006 00 16 001 JSB BASS$CB_GET > 1905. 
000000006 90 1 00196 JSB BAS$$CB~POP + 1906) 
6 DS 0019C 278 TSTL + 1909 | 
oc 13 00196 BEQL : | 
000000006 00 16 001A0 JSB BAS$$CB_GET : 1912 
000000006 00 16 001A6 JSB BAS$$CB_POP : 1913) 
04 OO1AC 28$: ~—s RET : 1916 
; Routine Size: 429 bytes, Routine Base: _BASSCODE + 0230 


; 893 1917 1 


Dae Se Oe Oe Be Se Bee Be Be Se Se Be Ge SH Se See Se Se Se Se Se Se Se Se ee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SHS Se Se ee Fe Seas Se Sete Seas 


18-5 
14-5 


~1984 01:07: AX-11 Bliss-32 V4.0-74 Pa 6 
ets ri 94:90:88 EBASRTL SRe BAgRS Tr 1 642:1 ™ BS 
; 895 1318 1 GLOBAL ROUTINE BASSFIELD_COP_R ( ' copy to a FIELD variable 
3 38 1919 1 STMT_TYPE, : f ther LSET or RSET 
3 19 y 1 VAR2, ! The destination variable 
; 898 19 1 VAR1_LEN ! Length of the source variable 
; 899 19 ; 1 VAR1 "ADDR i Address of the source variable 
3 19 1 ) : NOVACUE = 
3; 901 1924 1 
: O06 1925 1 !+¢ 
H at § } FUNCTIONAL DESCRIPTION: 
; 905 19 1! This is an alternate entry point for BASSFIELD_COPY, which the 
3 208 19 & compiler uses to avoid peying to build a descriptor for 2 ser ane 
; bt 3 7 : } constant. This code builds the descriptor and calls BASSFIELD_CoPY. 
; 909 19 § 1 ! FORMAL PARAMETERS: 
; 910 19 1! 
; 911 19 7: STMT_TYPE.rl.v 0 = this is an LSET statement, 1 = RSET 
$ aig 1935 1! VAR2.wt.dx The destination of the copy. This may be a 
; 91 19 : 1! FIELD variable. 
; 914 19 1! VAR1_LEN.rl.v The number of bytes in the source 
; a 1? : : VAR1_ADDR.rt.r The address of the source 
3 319 1940 1 ! IMPLICIT INPUTS: 
; 918 1941 1! 
3 48 ok ; SYM$Q_ROOT.rq The queue of FIELD variables : the symbol table. 
; $31 1944 1 ' IMPLICIT OUTPUTS: 
; 9 . 1945 1! 
3; F 1966 1! NONE 
; 926 1947 1! 
; 925 1948 1 ! ROUTINE VALUE: 
3 ase 1949 1 ! COMPLETION CODES: 
3; Ve 1950 1! 
; 928 1951 1! NONE 
; +4 1326 1! 
; 9 1955 1 ! SIDE EFFECTS: 
ie +) 1954 1! 
3 HE 1955 1! May write into or read from an 1/0 buffer. 
3 935 1328 1! 
; 934 1957 1 !e- 
s 939 1958 1 
; 936 1959 BEGIN 
: 937 1960 
3 338 1961 LOCAL 
3 44 Hb VAR1 : BLOCK (8, BYTE); ! Build source descriptor here 
941 1964 VAR1 ([DSC$W_LENGTH) = .VAR1_LEN; 
; 949 1965 VARI DSC$B-DTYPE] = DSC$K_BTYPE_T; 
3; 94 1206 VAR1 ([DSC$B_CLASSJ = DSCS$K_CLASS 'S; 
> 944 196 VAR1 CDSCSA_POINTER) = .VAR1_ADOR; 
: 3cg 1969 3 i ‘Now do th 
: : e copy. 
5 309 1990 !- ~ 
3 948 1971 BASSFIELD_COPY (.STMT_TYPE, .VAR2, VAR1); 
3; 949 1972 END; ! end of BASSFIELD_COP_R 


-—2 | 


Sete Se Se Se Se Se Se ee Se ee ee Se Ge Se Se ee Se ae 


pee pioneers 


os -F IELD 


; Routine Size: 32 bytes, 


; 950 1973 1 


H 3 
16-Sep-1984 01:07: VAX-11 Bliss-32 V4.0-74 p 7 
14-Sep-1984 11 1:97:33 CBASRTL.SRC pasaeties ofe: :1 sree (Bs 
0000 00000 SENTRY BASSE IELD_ COP_R, Save nothing : 1918 
SE 08 ¢2 0000 SUBL2 3 
6E 0c AC B80 0000 MOV VARI _LEN, VARI t 1964 
02. AE 0105 8F B80 000 MOVW #27075 VARI42 : 1965 
06 «AE 10 AC D F VL VAR “ADDR, VAR1+4 t 1967. 
SE DD 00014 PUSHL + 1971 
7E 04 Ag D 00016 MOVO. STMT_TYPE, =(SP) : 
FE3G OCF 03 FB OOOIA CALLS a BASSFIELD_CcOPY : 
04 0001F RE + 1972 


Routine Base: _BASSCODE + O3EA 


SYM$Q_ROOT.mq 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


SeSSSRESeES3 


eee ee oe ee ee ee eee ee eee eee 


Pe BOSS ORE Bi SEES EE ee UE ee | SIRES - 
PSO Sse : | 
BASSRSTS_FIELD 1b-se -1984 01:07: AX-11 Bliss-32 V4.0-74 P 8 ey 4 
kets 1 ~300 71382 te Ye YBASRTL SRE BagRe tie 1 o82:1 set (35 § 
9 ¢ 1378 GLOBAL ROUTINE BASSFIELD_PURGE ( ! Purge field variables 
G 1975 L ! Scope of the declaration 
3 3 1378 ) : NOVALUE = 
9 $ 1378 'e¢ 
44 FUNCTIONAL DESCRIPTION: 
985 1981 i Puree. or undeclare, field variables. This routine is called 
960 19 § : at the end of a block with declarations that might have been 
961 19 : FIELD variables. It scans the eysees table and purges each 
+ 1° : : entry marked as declared in the block. 
964 19 FORMAL PARAMETERS: 
208. 19 : i DECL.rl.v An indication of the scope of the declaration 
%6 198 ‘ of the variable. This is a pointer to the major 
968 1990 ! frame (R11) if the variable is in the scope o 
969 1991 ‘ the major procedure, or a pointer to the minor 
14 1338 } reas R10) if the variable is in the scope of 
972 199% 1! Pacnalt. 
1 Mb a : IMPLICIT INPUTS: 
oe 1997 ; SYM$Q_ROOT.mq The queue of FIELD variables : the symbol table. 
379 1 IMPLICIT OUTPUTS: 
i 
i 
i 
i 
i 
i 
i 
‘ 
1 
i 
i 
i 
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Oty May remove symbols from the symbol table. 

991 8 1 

oo 

994 O18 LOCAL 

995 9} SYM : REF BLOCK CSYMSK_LENGTH, BYTE) FIELD (BASSFIELD_SYM), 

996 3 SEARCH_DONE ; 

me 

1900 0 ; If the symbol table root has not yet been initialized, initialize it. 

1001 ; 

Ine : 4 IF (,.SYM$Q_ROOT (0) EQL 0) 

100 5 THEN 

Inge $ BEGIN 

1906 LOCAL 

100 AST_STATUS; 

1008 | 
| 


3 

‘gagggsts.rie.o tb-Sep-1984 01:07:50 yaNett BLisg=32 y4.00742, 
s AST_STATUS = SSETAST (ENBFLG = 0); 

If (.SYMSQ_ROOT [OJ EOL 0) 


MP 


BEGIN 
SymSa_RooT (0) = SYMSa_ROOT [1] = SYMSa_RooT (02; 


IF (.AST STATUS EQL SSS_WASSET) THEN SSETAST (ENBFLG = 1); 
END; 


> 4 a st 


CNA ASW "OO OONOU Sur 


'¢ 
Search the queve, removing any variables declared in this block. 


SYM = .SYM$Q_ROOT (0); 
SEARCH_DONE = 0; 


dO 
BEGIN . 


IF (.SYM EQLA SYMS$Q_ROOT) 
SEARCH_DONE = 1 
LSE 


FRELRRE PERG 


DONO VF WN" OOONOUE HN" OO 


ooo°coo 


Vw 


IF (.SYM CSYMSL_DECL] EQL .DECL) 
* BEGIN 
We must delete this symbol from the symbol table. 


MAMMA 


ooo 


BUILTIN 
REMQUE ; 


SSEFEEES 


UWE ERE REP EE EEE EE EE EEE EEE EEE FE PAE AMMAN HIPINIPINININININIWININNNN PP 


LOCAL 
FREE_VM_STATUS, 
MP 


VAR : REF BLOCK (8, BYTE): 
REMQUE (.SYM, TEMP); 
IF (SYM CSYMSV_INVALID]) THEN BASSSSTOP (BASSK_ILLFIEVAR); 


VAR = .SYM CSYMSA_VAR); 
VAR bse W_LENGTH] 


SOS SPSS RR EES Soe sssseoosoosssossosso 
DWNAVE WO ONO U EWN OO 
° 
RRR ES Pa RBs 


Cooooceoceeo 
Soooooooooo 


PAPAS 


IF ( NOT .FREE_VM_STATUS) THEN BASSS$STOP (BASSK_PROLOSSOR); 
SYM = .SYM$Q_ROOT [0J; 


ELSE 
SYM = .SYM CSYMSA_NEXT); 


FEZESS 


Be Se Be Se Se Be Se Ge Se Se Ge Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Gs Se Ge Se Se Se Se Ge Ge Se Se Se Se Ge Ge Se Se oe Se Ge ee Ge Se Se Se eee 
ms a a mk aa ak aaa ak a a at at at at at tt a tt ot a os 


s 
a 


Page §) 


LAGER TE ret se 


53 
BASSRSTS_FIELD $ep-1984 01: AX-11 Bliss-32 V4.0- 
Asse 12-8 Sep =}382 9 nT 2 BASRTL.SRCJBASRSTSFI. aS. 1 
: 83 END 
i 3 UNTIL (.SEARCH DONE) ; 
: 10 3 92 END; ! end of BASSFIELD_PURGE 
007¢ 000 .ENTRY BASSFIELD PURGE, Save R2,R3,R4,R5,R6 
é 900 9006 0 E 0 MOVAB BASSSSTOP 
6 E MOVAB eySsseTAst, Res 
4 00000000' F 9010 ROVAR SYM$Q ROOT. R& 
E 8 ¢ 1 SUBL2 #8, SP 
64 D5 OOOIA TSTL YM$Q_ROOT 
1D 12 0001C BNEO 
re D4 olf CLRL = ( SP) 
65 01 FB 0002 CALLS #1, SYSSSETAST 
64 08 235 TSTL § $YM$Q_ROOT 
OA 12 00925 BNEO 6=s:«*1$ 
51 64 9E 00027 MOVAB SYM$Q_ROOT 
04 Ad 1 06 002A MOVL 1, SYMSQ "Root +4 
64 21 DO 0002E MOVL R11. SYMS$Q~ROOT 
09 Q D} 00 1 1$: CMPL Ast. STATUS, #9 
0 DD $086 PUSHL #1 
65 1 FB 00038 CALLS #1, SYSS$SETAST 
52 64 dO 0038 2$: MOVL sriisa ROOT SYM 
3 04 000 CLRL SEAR ONE 
50 64 9€ 020 38: MOV fase ROOT. RO 
“ 0 aa a 
53 of 06 0968 MOVL #1, SEARCH_DONE 
04 ac 14 a2 D| 0040 4$ cMPL aay: DECL 
% a OF Ronse RENQUE (Sm. Tenp 
7E 006 8F 7H 608 MOVZBL TeASSR nALLF Levan. -(SP) 
66 01 FB 0 CALLS BASS $$STO 
50 18 Ag DO 00063 5$ VL 24 bts 1M var 
60 B4 0006 CLRW AR) 
03 Ad 02 oe Ove ie "Seva 
8 Ar BF 0 PUSHAB Tene 
04 AE 20 D0 07 MOVL #32, 4(SP) 
04 AE OF 0 7 PUSHAB 
000000006 ; FB O7A CALLS LIBSFREE_VM 
f 0 1 BLBS oete — VM STATOS 
E 006 BF 9A MOVZBL #BASSK PROLOSSOR, -(SP) 
66 1 FB 000 CALLS #1, BASSSSTOP 
64 06 088 6$: OVE YMSQ_ROOT, SYM 
52 $3 09 5 7$: MOVL (SYM), SYM 
AA F 093 8$: BLBC  SEARCH_DONE, 3$ 
4 0009 ET 


Page 3) ; 


1974 


maggie eect LACS MELOMGR 


; Routine Size: 151 bytes, Routine Base: _BASSCODE + 040A 


; 1071 2093 1 


RRS CE a eS Gee eegeeneuoge 


BASSRSTS_FIELD 16-Sep-1984 01:07: AX-11 Bliss-32 V4.0-74 Pa 2. B 
1838 . 1e-sep-19 4 0 07338 YBASRTL SRE BASRSTSFI. $251 9105, 1 
GLOBAL ROUTINE BASSFIELD_OPEN ( ' Account for opewing a file 
HAN ! Channel just OPENe 


) : NOVALUE = 


ae 
FUNCTIONAL DESCRIPTION: 


Account for OPENing a file. If the record length is shorter 
than before, some variables may have to be un-Tielded. 


FORMAL PARAMETERS: 


jolelolelolelelolelelelolololelolo!) 
38 SSeS see eS 
oOo WN —OOONOUISW 
MIPOPOROROROROPOROTonornononononofnononyd 


3 1 1 : 
: } : 
i he : 
3 3 3 1! 3 
3 3 139 1! 3 
3 1 101 1! : 
3 1 1 1! F 
3 1 1046 1! F 
3; 1084 13? . 3 3 
: } +H 138 } : CHAN. rl.v The channel number of the file just opened. : 
3; 1087 108 1 ! IMPLICIT INPUTS: $ 
; 1088 109 1! 3 
3 : 119 ! : SYM$Q_ROOT.mq The queue of FIELD variables : the symbol table. | : 
: 1091 11g 1 { IMPLICIT ouTPUTS: | 
3 10% 211 x | e 
3 109 ‘a 3.2 SYM$Q_ROOT.mq 3 
: 1094 116 1! 3 
3 1095 116 1 ! ROUTINE VALUE: 3 
: 10 117 1 ! COMPLETION CODES: 3 
: 109 118 1! ; 
3; 1098 119 1! NONE 3 
3; 1099 120 1! 3 
3; 1100 \¢1 1 ! SIDE EFFECTS: 3 
3: 1101 1 ; 1! 3 
: 1198 \§ 1! May remove symbols from the symbol table. 3 
3; 110 124 1! 3 
3: 11046 \¢3 1 !e- 3 
3: 1105 126 1 3 
; 1106 127 BEGIN | ; 
; 110 128 : 
: 1108 129 BUILTIN | - 
3; 1109 130 FP; F 
: 1110 131 $ 
31111 132 GLOBAL REGISTER 3 
: ae 2133 CCB = K_CCB_REG : REF BLOCK C, BYTE); 3 
7111 3134 : 
3 1114 133 LOCAL F 
3 1115 2136 FMP : REF BLOCK f BYTE) 

: N16 ii SYM : REF BLOCK SymMSk_LENGTH, BYTE] FIELD (BASSFIELD_SYM), 

31711 138 SEARCH_DONE, 

; 1118 139 LUN_NO, 

3 1119 140 RSZ, 

: 1120 141 RBF; 

: 1121 126 

s 11 § 14 FMP = FP; 

: is 144 te : 

3 1 ¢ 146 : Compute the logical unit number from the channel number. 

: 11 14 

3 Hi pe IF (.CHAN LSS 0) THEN BASSS$STOP (BASSK_ILLIO_CHA); 

: 1139 150 IF (.CHAN EQL 0) THEN LUN_NO = LUBSK_LUN_INPU ELSE LUN_NO = .CHAN; 


nN 3 
“BASSRSTS_ FIELD 16-Sep-1984 01:07: AX=11 Bliss-32 v4.0-74 3 8 
1-023 12=808-1982 94:97:38 BASRIL SREIBASRETEr I. 69251 age 433 1 


“§ 


i If the symbol table root has not yet been initialized, initialize it. 


tt 
a tt 
ViFWnN—oO 


IF_(.SYM$Q_ROOT [OJ EQL 0) 
THEN 


; Pick up the buffer size to compare against the variables. 


i 
5 
i 
4 
BASSSCB_PUSH (.LUN_NO, LUBSK_LUN_INPU); 
; 
3 
4 
3 
4 
4 
5 
: 


fe 

' 
1 BEGIN 
138 
139 LOCAL 
re AST_STATUS; 
126 AST_STATUS = S$SETAST (ENBFLG = 0); 
144 IF (.SYM$Q_ROOT (0) EQL 0) 
145 THEN 
178 BEGIN 
14 SYM$Q_ROOT CO] = SYM$Q_ROOT [1] = SYM$Q_ROOT [0]; 
108 END; 
139 IF (.AST_STATUS EGL SSS_WASSET) THEN S$SETAST (ENBFLG = 1); 

2 END; 
14 


UBSA_RBUF _ADRJ 
RSZ = .CCB CLUBSW-RBUF~SIZE); | 


i Search the queue, removing any variables which no longer fit in 
the current buffer. 


SYM = .SYM$Q_ROOT [0J; | 
SEARCH_DONE = 0; 


( 
CCB CISBSA_USER FPJ = .FMP CSFSL-SAVE_FP2; 
RBF = .CCB tt : 


POPOPOPOPORoNoRoPONoNonononoPofnononorononoronofnonononororofrorory 
i dd dd 


et — — —s 6 os 


WN SO OCOnNOus 


BEGIN | 
IF _(.SYM EULA SYMSQ_ROOT) 
SEARCH_DONE = 1 
LSE 


IF (.SYM CSYMSL_CHAN] EQL .CHAN) 

BEGIN 

IF (.SYM CSYMSL_OFFSET] + .SYM CSYMSL_LEN] LEQ .RSZ) 
* BEGIN 


i The variable is still within the buffer, recompute its address, 
! since the buffer may have been reallocated. 


WR =O OONOUSWN —“OVOOnOu 
“ SS STESCS 
NA ASANO OD NAME WN SO OONOAUE WN $9 OONAOU EWA OOO NAOUE WN OOONOUP WI 


ee ee ee ee ee ea ee a ce me ee ce ee ce ee ee a ee ee ee ee ee ee et eed ed 


ck et a ee ee ad et od 0d oe nd ow wd dd sd dd 


w 
SOSOSGOOOSO0O00000 00000000009 69 0909 0909 09 INI NNN NNO 


FIP IP IP INI IN at et at st tt tt st tt 


PROPQPIPIPINYNINIAIPYAINININIPIPNINIMINININININPINYD 


= 


pagege’s FreLe 
i= 


o 


ono 


Oo Doh oh oDele Jo Te) 
MISWN—OOONOULS WN —O0On 


oO 
MIPMIPINOAY 1 OO 


ooo 


WAI WIA POPUNINGAINININYD 2 9 2 OS SS OOOO 


ma atk atk a as td td = = — 2“ = 2 2 2 2 SS 2 SS SS 2 SL SS Ls SS SS 
SRRUNSZSSHNOUeurv -CoMNanrwn—sooow~ 


ROPIPOPENINIPYAPIPONINPONINONINI NP NOP Nononofofnopnofononofony»d 
Gora Rh 2 O09 NOME WO O00 SOUR O00 NOUN Ueh  OG0 Wn RNR A ODee 


PRIPSPIPININDNYNININININININININININININYDININININIPIAIPYPIPPYINIPUPUNPIPYNDIPYPONOPNYNINIPUPUNPINPOPYD 
PRIPINIPIPIPIPYPININYININININPYNINIANINININIPYNININIMYININIPYNYNIPNYNPYNPINPPUN) 

PUPPIES BS BS BB EEE EWAN rnp) 

SPIRIT PVPS SV SU DV SVS VST SUSI SUSI S™ SUIS ISIS 


4 
16-Sep-1984 01:07: AX-11 Bliss-32 
1 =3007 1382 91:97:38 BASRTL.SRCIJBAS 
LOCAL 

VAR : REF BLOCK (8, BYTE]; 


VAR = .SYM CSYMSA yaad; 
; VAR CDSCSA_POINTER) = .RBF + .SYM CSYMSL_OFFSETI; 


'¢ 
Clear the ‘‘invalid’’ bit, since it may have been set by an implied close. 


SYM CSYMSV_INVALID] = 0; 
SYM = .SYM”CSYM$A_NEXTJ; 


14 
This variable is outside the new buffer, remove it. 


BUILTIN 
REMQUE; 

OCAL 
FREE _VM_STATUS, 
VAR : REF BLOCK C8, BYTE); 


YM, TEMP); 
CSYMSA VARI; 


LENGTH = 0: 
“CLASS] = DSCSK_CLASS_D; 
VAR POINTER] = 0; 
FREE_VM_STATUS = LIBSFREE_VM (ZREF (SYMSK_LENGTH), TEMP); 

IF ( NOT .FREE_VM_STATUS) THEN BASS$SSTOP (BAS$K_PROLOSSOR); 


SYM = .SYM$Q_ROOT (02; 
END 


=—P>wEezuw 


END 
SYM = .SYM CSYMSA_NEXT); 


ELSE 


END 
UNTIL (.SEARCH_DONE) ; 
'¢ 
We are through with register CCB. 


BASS$SCB_POP (); 
END; ! end of BASSFIELD_OPEN 


09FC 00000 ENTRY BASSFIELD_OPEN, Save R2,R3,R4,R5,RO,R7.RB,= 2094 


roel 


Y 11 Oi legate HL led 
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ARAGYMu + OO oH90 Ao GMMM MNTFADZOVGLVSA no =F +e FON Ae eOMae -~— WA 
PAW zn f~aweAH A ‘ Au~~ACHA + ~-~ wo "Mw et <a ww 
MME = eat «ts = WM SE Ef le * MOOT aE eAawW ws + wt «+ w—~E seu we 
>< >O0 THO WAL > OY — HO NRO ER LOU FW > > AM - OY HOOKH TKK RANT ON SWE 
MWMMBu Ve BVIOVSHT 1 BVM VEST TRBVVWD 1 | MMNKNVOB—-OO'—- SKVNSBRBQO~w~ x2w - BvVus 
SS ee ee en ee Se ee: ee ee Te ee ee 
SSS Sees eSs2%s2252S2 S222 25< 20000 jot Z0GEZ2Z2GOF900—f2w0j0IjD0>< 0 
ZTEVTTOZS- OE Or DEFFVYOOA VE MW“ TTSFSTVCDVOLOVAIVATITE@MOOClVYTAZAYOE 
oe wn A aA ad A ted 
- ~N La] wT w o ~ 
NOOF- £OMK— MR LVI MA SOWIE ND DOLNMOA NOU @ 


DO III COON AF ST AT AT ST TION OOOO OR-P-PF-P-F- OD DDODOO «<<< <oOooogw 
SOoOOCCOCOOSOOSOSSOOSSOSOOVDOOSOSOOSOCOOSOSOSOSOSOOOSOSooOo SSSsssss oooooooo 
GOOOOOoCooSoooooooooQIooooooooooooooooooooooooooSao COooooooo 
CGOOQOOCOOOCSOSGSOOSSSOSSSGSGOSOSSSSOSSSSOSSSSCOSSOCOSOSOOOOOOOCOOSOOoSoOo 


WWWINOOS £OMNVUUMNN ST DNUWOOK—VNOOWOSOOVOT WRK NOK KN nK FTOwet KL OvOoyu Ou Doct 

SORVOO OU OM VOM OL OK COOK OL VK OBOMAGBK OAK OF OF VOK— OOD - OOOH OP OO & Wm 

O04. DOR & KVP. 0 OW 0 LOK KOMNK KK OMDDOMOUMN — ONVNOONS — HK MUNONOWOWNO uw 

SOWOM LODOMNOO VO F- OWOWOMUMMOOO0OS < f CTOMDONOOM fv Ne <2mecoes iInuconow 
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or-owmmy wrk ~N co —-OOor co @wmnw oOo mM Ye NAM COON WO CO w Ow 
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dD 4 
RSTS_FIELD 16-Sep-1984 01:07: AX=11 Bliss-32 V4.0-74 Page 36 
ee 102805= 1382 Hak BASRTL.SRCIJBASRSTS 137.882; 9405 
6? 01 FB 000¢6 CALLS , BASSSSTOP | : | 
2 66 D0 Qo0c9 Bs: movc’ | Symsa ROOT, SYM : 2243. 
03 11 000CC BRB 10$ i 3199, 

52 62 00 OOOCE 9$: MOVL (SYM), SYM 3; 22 

A 53 £9 00001 10$:  BLBC SEARCH DONE, 58 22 

000000006 00 16 000D4 JSB $$(B_P : 22 

04 OOODA RET i 22 


; Routine Size: 219 bytes, Routine Base: _BASSCODE + 04A1 


: 1237 2258 1 


2 | 


Be Oe Be Oe Oe Be Oe Se Oe Se Be Oe Be Se Se Se Se Se Ge SH Se Ge Fe Se Se Se FFF Se Be we Se Oe Se Os Se Oe Se Se Se SF Se Se Oe Se Oe Oe 2 Se Se Se Oe SH Shee Oe ee 


- 


‘ee a ET RES RS ee TRE EI eS SF ee ee ; 
4 
—BASSRSTS_FIELD hese -1984 01:07: AX-11 Bliss-32 V4.0-74 Page 37 
RS 3 12-808 -1 ope ee ee BASRTL eRe IBARRSTSe 1 BS2:1 ° (11) 
; GLOBAL ROUTINE BASSFIELD_CLOSE ( ! Account for CLOSEing a file 
HAN ' Channel about to be CLOSEed 


) : NOVALUE = 


‘ee 
! FUNCTIONAL DESCRIPTION: 


Account for CLOSEing a file. Unfield all of the variables 
on this channel. 


i FORMAL PARAMETERS: 


CHAN. rl.v The channel number of the file about to be 
CLOSEed. 


' 

' 

' 

' 

4 

' 

' 

! 

' 

' 

IMPLICIT INPUTS: 
SYM$Q_ROOT.mq The queue of FIELD variables : the symbol table. 
IMPLICIT OUTPUTS: 

: SYM$Q_ROOT. 2 

LUBSV_FIELD_USE for this channel, set to 0 

' 
' 
' 
' 
1 
' 
t 
1 
1 
t 


i ROUTINE VALUE: 
COMPLETION CODES: 


POPOIPIPOIPIPIPIPIPIPIPYPINYNININIPININIAINININN PTT 
COONS NNN Oo GPOOAuw 
RRSRSS IAS NIS Se SPCR SS 


te 
: If the symbol table root has not yet been initialized, initialize it. 


ooo 
MePwn— 


mr 


IF (,.SYM$Q_ROOT (CO) EQL 0) 
BEGIN 
Loc 


$s NONE 
68 88 i SIDE EFFECTS: 
69 89 
+s May remove symbols from the symbol table. 
9 on 
38 
94 BEGIN 
75 95 
7 GLOBAL REGISTER 
Las 34 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
79 99 LOCAL 
80 00 SYM : REF BLOCK CSYMS$K_LENGTH, BYTE] FIELD (BASSFIELD_SYM), 
81 LUN_NO, 
Hy SEARCH_DONE; 
B4 
85 
a9 
88 
89 
90 


oo 


wm — 


AL 
AST_STATUS; 
AST_STATUS = SSETAST (ENBFLG = 0); 


ee ee ce mk cr ee ee ee 8 a ed ad = 2 td 


WCDI AIA IRI AARP PIPIPIPONDPOPIPIPOPYD I a at tt st tt tt tk tk kk ts tk tt tt tt 
omemems . . . 


Be Se Se Se Se Se Se Se Ge Ge Se Be Ge Se Se Ge Se Se Se Be Se Ge Ge Ge Se Fe Ge Se Se Se Ge GS. Ge Ge Se Se Se Ge oe Fe Ge Se Se Se Ge Ge Se Se Ge SH Se Se Se Se esses 


—-— tt OOO 


MEwn—O0O® 


oO 
w 


-o | 


— 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
1 


-—@ 


| F 4 
a 1e-$ep-198e 11:56:38 EBASRTL SRESGASRSTSF I -682:1 Page oat} 


IF (.SYM$Q_ROOT (OJ EQL 0) 
THEN 


— 


ZSSOVSEARUN SOBA ARIA OORT AR WV IO SOLE 


BEGIN 
srnen Oe! CO} = SYM$Q_ROOT [1] = SYM$Q_ROOT (0); 


IF (.AST STATUS EQL SSS_WASSET) THEN SSETAST (ENBFLG = 1); 
END; 


1+ 
: Search the queve, removing any variables for this channel. 


SYM = .SYM$Q_ROOT (0); 
SEARCH_DONE = 0; 


dO 
BEGIN 


IF _(.SYM EOLA SYMS@_ROOT) 
SEARCH_DONE = 1 
LSE 


IF (.SYM CSYMSL_CHAN] EQL .CHAN) 
BEGIN 


F&F EAA AAIAIGIPPPUPIPUPOPONINDY 2 2 SS 


VEU @OOONOAUN EWN $9 OD NAVE WN 0 OD NOU EWN (OOS NAOUSWN—OWOONO 


be 
We must delete this symbol from the symbol table. 
BUILTIN 
REMQUE ; 
LOCA 


L 
FREE _VM_STATUS, 

VAR : REF BLOCK (8, BYTE): 
REMQUE (.SYM, TEMP); | 
IF (.SYM CSYMSV_INVALID]) THEN BASSSSTOP (BASSK_ILLFIEVAR); 

VAR = .SYM CSYMSA_VAR); 

VAR COSC$W_LENGTHI] = 0; 

VAR DSC$B-CLASS] = DSCSK_CLASS_D; 


DSCSA-POINTER) = 0; 
FREE_VM_STATUS = LI@SFREE_VM (ZREF (SYMSK_LENGTH), TEMP); 


IF ( NOT .FREE_VM_STATUS) THEN BASSSSTOP (BASS$K_PROLOSSOR); 
SYM = .SYM$Q_ROOT (0); 
END 


ELSE 
SYM = .SYM CSYMSA_NEXT); 


PAAAAMUIIUIIN & & & 


SSBLEAREGS 


AWE BPE PEE EEE EEE EEE EEE EEE EEF PAF MIDIS NIUIPIDIPINININIPINI WIN BPW 


ed ed od td ea td ed a dad dad aed ad Dada Dad Dad ad dad ad ad ad ad add bd adadad dadadadad ad adadabadbadadad 


MOC OOO wh — 


ww 


-— 


4 
ASSRSTS_FIELD bese -1984 01:07: AX-11 Bliss-32 V4.0-74 
; 4 1o-g00=} 382 te tt YBASRTL” neloacrerérl 642-1 
g 73 END 
; 74 UNTIL (.SEARCH_DONE); 
3 Ne . 
3 7 } load register C(3. 
: ig LUN_NO = (IF (.CHAN EQL 0) THEN LUBSK_LUN_INPU ELSE .CHAN); 
: 1 BASSSCB_PUSH (.LUN_NO, LUBSK_ILUN_MINJ; 
; '¢ 
: Bs : indicate there is not FIELDing on this channel anymore. 
; 5 CCB CLUBSV_FIELD_USE) = 0; 
: 89 16 
: $8 done with register CCB. 
: 390 BASS$SCB_POP (); 
: 92 1 END; ! end of BASSFIELD_CLOSE 
083C 00000 -ENTRY BASSFIELD_CLOSE, Save R2,R3,R4,R5,R11 
55 000000006 00 9€ 90008 MOVAB BASSSSTOP, RS 
54 90000 006 00 9€E 000 MOVAB SYSS$SETAST, R4 
53 00000000' ai 9E 00010 MOV SYM$Q_ROOT, R3 
5E 8 C2 00017 SUBL2 #8, S 
63 05 OOOIA TSTL $yMSO_RooT 
1D 12 0001C BNEQ $ 
7E D4 0001 CLRL = = (SP) 
64 01 Fe 00 CALLS #1, SYSSSETAST 
63 D5 000 TSTL § $YM$Q_ROOT 
0A 12 000 BNEQ 
51 $3 9 99 MOVAB SYM$Q_ROOT, R1 
04 a3 1 0 A MOVL 1, SYMSQ_ROOT+4 
6 31 DO 0002E MOVL R1, SYM$Q~ROOT 
09 g D1 00031 1$ CMPL AST_STATUS, #9 
12 000 BNEQ 2$ 
1 DD 000 PUSHL #1 
$4 1 FB CALLS #1, SYSSSETAST 
2 3D 2s: VL  S$YM$Q_ROOT, SYM 
b4 CLRL_ SEARCA_DONE 
50 $ : 3$: MOVAB SYM$Q_ROOT, RO 
D 4 Lt SYM, RO 
6 if 6 BNEQ 4$ 
58 1D VL #1, SEARCH_DONE 
46 11 & BRB $ 
06 ac 08 A p} 48: CMPL (SYM), CHAN 
3¢ (12 BNEQ % 
04 ag 62 OF REMQUE (SYM) TEMP 
9 iC A 59 8 BLBC 28(SYM) 
G a A MOVZBL #BASSK {uLFLevaR, -(SP) 
: ev. CALLS #1, BASSS$STOP 
18 A2 D 5$: VL 26¢SYM), VAR 


Page 39 


(11) 


; 2259 


2308 
2315 
2317 
2320, 


2323 


a 
336 
2338 | 
2341 | 


nd 


2360 | 


; 


specesimenaienantgtaiaieeeepeitiemmemnaeann NEL | aA PEt ot hs FD SE, Sor : 
| 
| H 4 x 
ASSRSTS_FIELD 16-Sep-1984 01:07: AX-11 Bliss-32 V4.0-74 Page 4 Bi 
heii 1 ~300n 138i ie ae BASRTL’ SRE IBAGRE TET B42: oe 449 ' 
4 00067 CLRW 3s (VAR) | : 2361. 
03 a0 ; 0 00069 OVE we. SCAR) i 3369 
6 AO D4 Ls @CVAR) + 2363. 
| 4 AF F PUSHAB TEMP : 
04 AE 0 0007 VL #32, 4(SP) : | 
04 AE 9F 0007 PUSHAB 4(SP) : 
000000006 9 re 7A CALLS #2, LIBSFREE_VM : 
f 1 BLBS FREE _VM_STATOS, 6$ t 2366 
: 006 BF SA MOVZBL #BASSK_PROLOSSOR, -(SP) : 
1 FB 000 CALLS #1, BASS$$STOP : 
2 p B 6$: MOVL yhs@_ROOT, SYM : 368 
52 b9 7$: MOVL (SYM), SYM : 2371, 
AA BE 93 8S: BLBC = SEARCH_DONE, 3$ + 2374) 
04 aC b3 0096 TSTL HAN : 2379 
0 12 00099 BNEG $ : 
52 7 CE 00098 MNEGL #7, LUN_NO : | 
04 11 O09E BRB 1 : | 
52 04 AC DO OO0A0 9S: MOVL CHAN, LUN_NO : 
0 08 CE OO0AG 10$:  MNEGL @# : 2380 
000000006 0 16 000A7 JSB BASS$$CB_PUSH ; 
40 8F 8A OOOAD BICB2 #64, -95(CCB) > 2385) 
000000006 00 16 00082 JSB BAS$$(B_POP : 2390) 
04 00088 RET > 2392 | 


; Routine Size: 185 bytes, Routine Base: _BASSCODE + 057C¢ 


; 1373 2393 1 
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a a a a ek dd td ed = od 2 8 


BPP EEE EE 


bd aed tt 
ESSSUSCRONSVSSanenrun—o 


Oo 
We 


ARENWLS SRLS 


NOUEUN $9 OONOUSWN Oo 
PIPPI IPI IPI a at at sn tt st 8 hh ot 


_ 


Ft ahhh eh hei ehh ehhh ehhh ee ek kt et ee et ee ee ee ee ee 
w 


sans wg Ary BASSSFIELD KILL 


as 


ré-sep-1964 01:07:32 yayelt BLiag-32 v4.0 


“CCB NOVALUE = ! CLOSE appendage 


FUNCTIONAL DESCRIPTION: 


This routine is called while a file “ din tk CLOSEd, for any 
reason. If the CLOSE wes ati Licit a e module containing 
the FIELD ptegenent’s) SFIELD_ ‘e vill plready have 
removed oti of the ' ate” ver iab es for this channel from the 
7“ Aish e, -* this a+ ~ will find pone, If the CLOSE 
ino te t or outside the module with the FIELD stat ne tei, 
Bassr ELD. CLOSE will cot y A. n called eng this foyt 
will mark” some yer ables invalid. An explicit CLOSE f 
another module is considered a programming error, $9 itt 5 
proper to give an error . soon as any of these variables are 
rererenced. We cannot al an error from here because this 
may be the CLOSE from the Orit handler (in which case the 
variables will not be referenced again, so operk ios them 
Ynvalid is OK) or the implicit CLOSE from n which case 
(if the OPEN is from a module with FIELD) BASSFIELD™ OPEN will 
re-validate the variables still in the buffer. 


FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


SYM$Q_ROOT.mq The queve of FIELD variables : the symbol table. 
LUBSW_LUN The logical unit number of the file being closed 


IMPLICIT OUTPUTS: 


SYM$Q_ROOT.mq 


OUTINE VALUE: 
OMPLETION CODES: 


SIDE EFFECTS: 


| Be ae symbols invalid, but is most Likely to have no net 


BEGIN 
oo REGISTER 


CCB : REF BLOCK C, BYTE); 


—_ 


REF BLOCK CSYMSK_LENGTH, BYTE) FIELD (BASSFIELD_SYM), 
SEARCH DONE, 


ras 
1.852;1 (12) 
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BeBe Se Se Oe Se Se Se Fe Se Se Se Se Se Ge Se Se Se Fe Ge Fe Ge Se Se Ge Fe Ge Be Se Ge Ge Ge Se Se Geese Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fete Se Se Seas 


| 
} 4 i 
| STS_FIELD 1b-se -1984 01:07: AX=11 Bliss-32 V4.0-74 Page 42 
An: 3 10-808-138e 48 EBASRTL-SRe Basretée 1 62:1 942) 

zr vee 

Ps :* 

3 12 ¢ ri § If the symbol table root has not yet been initialized, initialize it. 

5 16 455 2 

: 14 4 § IF (.SYM$Q_ROOT [0] EQL 0) 

: 14 4 HEN 

: 14 4 : BEGIN 

t yee} ret LOCAL 

; 1aeg 461 AST_STATUS; 

; 1444 ces AST_STATUS = SSETAST (ENBFLG = 0); 

; 1446 465 & If _{.SYMSO_ROOT CO] EOL 0) 

: 1468 r$ 4 BEGIN 

> 1449 468 4 SYM$Q_ROOT [0] = SYM$Q_ROOT [1] = SYM$Q_ROOT [0]; 

1489 % sae 

; 1426 of) IF (.AST STATUS EQL SS$_WASSET) THEN SSETAST (ENBFLG = 1); 

; 1454 47 END; 

Me ORB B. 

: 1487 4? ; Compute the channel number from the logical unit number. 

; 1459 47 ,, CHAN = CIF (.CCB CLUBSW_LUN] EQL LUBSK_LUN_INPU) THEN 0 ELSE .CCB CLUBSW_LUNJ); 

; ret ? : Search the queve, invalidating any variables for this channel. 

; 1483 4 : "SYM = -$YMSQ_ROOT (0); 

+ 1464 4 SEARCH_DONE = 0; 

1082 aBs do 

; 1467 4 BEGIN 

: 1469 é IF (.SYM EQLA SYMSQ_ROOT) 

3 1471 £90 SEARCH_DONE = 1 

1 ns) Ma 

3 1674 38 4 IF (.SYM CSYMSL_CHAN) EQL .CHAN) 

; 1476 i oo BEGIN 

: 1478 499 4 | We must mark this symbol as invalid. 

Me (gh 

3 12B 500 4 LOCAL 

3 18s : 1 ; VAR : REF BLOCK (8, BYTE); 

5 14 3 : 4 VAR = ,SYM CSYMSA_VAR); 

> 1485 4 VAR FDSCSA_POINTER . 6; 

; 16 3 5 SYM CSYMSV-INVALID) = 1; 

: 14 5 : 


K 4 
“BASSRSTS_FIELD 16-Sep-1984 01:07: AX=11 Bliss-32 v4.0-74 Page 43 
#45 ae eet) i ee ree ee Og Pt ee 29¢ 13) 
; 1296 SYM = .SYM CSYMSA_NEXT); 
ie END 
UNTIL (. SEARCH. DONE) ; 


16 
: 12 END; ! end of BASSSFIELD_KILL 


149 


-o | 


003C 00000 BASSSFIELD KILL: 
WORD 


" Save R2,R3.R4,R5 + 239% 
$5 090000006 00 9 90002 HOVAB «-SYSSSETAST. RS : 
54 00000000' EF a MOVAB SYM$SQ_ROOT, R4 Fee 
% 1 Ole BNEG : | 
7E 04 901 CLAL = = (SP) + 2463) 
65 01 Fe 0 1 CALLS #1, SYSSSETAST : | 
4 D 001 TSTL SYM$Q_ROOT : 2465. 
A 12 00018 BNEQ : 
51 4 001D MOVAB S OOT, R + 2468 
06 Ab 1 00 00020 MOVL 1, SYM$Q_ROOT+4 : 
64 1 D0 00024 MOVL 1. SYM$Q~ROO : 
09 g D1 00027 1$ CMPL f_STaTuS, t 2671) 
12 0002A BNEO : 
1 oD 00 C PUSHL #1 : 
65 1 FB 0002E CALLS SYSSSETAST : 
FFFQ «BF C6 AB 8} 99 } 28: cMPy 3c). f- : 2478 
85 D4 00039 CLRL CHAN : 
4 11 00 BRB 4$ ; 
52 (6 AB 32 3$ CVTWL  =58(CCB), CHAN : 
1 $4 00 00041 4$ MOVL § SYM$Q_ROOT, SYM > 2682. 
3 p4 0044 CLRL_ SEARCA_DONE + 2483 
50 4 ‘ Bee 5$ MOV SYM$Q_ROOT, RO 3 488 | 
50 1D CMPL = SYM, RO ; 
5 12 0004C BNEG : | 
53 01 D OO4E MOVL #1, SEARCH_DONE : 2490. 
1 11 0005 BRB 7 : | 
52 08 al D1 0055 6$: CHL (SYM), CHAN : 2495 | 
50 18 «AI 6 $089 MOVL e4(SYm), VAR > 2503. 
AO 4 5 CLRL (VAR) 7 2504. 
1c) OA 01 BISB2 #1, 28(SYM) ; 30 
51 $1 D 64 7% MOVL (SYM), SYM : 
dC 3 €9 00067 BLBC  SEARCH_DONE, 5$ + 2510 | 
006A RET : 2512) 


3; Routine Size: 107 bytes, Routine Base: _BASSCODE + 0635 


3 1496 2513 1 


payers rie Peete ee er ee t 
GLOBAL ROUTINE BASSSFIELD_INIT : NOVALUE = ! Initialize for RUN 


— 
= 


gt 


tee 
: FUNCTIONAL DESCRIPTION: 


Initialize the FIELD syabot table for the RUN command. ALl symbols are removed 
from the table, even those marked invalid. 


i FORMAL PARAMETERS: 
i NONE 
i IMPLICIT INPUTS: 


— > 4 4 db 


SSLESFALS 
MEUM (OOO NO VEU “OOOVNOUS 


; 1 

3 3 1 

3 1 1 

3 9 1 

3 1 1 

31 1 i 

3 1 1! 

3 : 1 

; i } 

: 1 i i 

: 1 

; : 9 : SYMSQ_ROOT.mq The queue of FIELD variables : the symbol table. 
: ig i IMPLICIT OUTPUTS: 

; 1314 3 SYM$Q_ROOT.maq 

; 1316 534 1 | ROUTINE VALUE: 

3 117 3 i COMPLETION CODES: 

: 1519 537 1: NONE 

; 13 0 538 1: 

3 13 1 339 i SIDE EFFECTS: 

; 2 5 ge) : Makes the symbol table empty. 

3 1525 28 1 ie 

3; 15 $ 544 1 

: 15 545 BEGIN 

; 1528 273 

3: 1829 4 LOCAL 

: 15 548 SYM : REF BLOCK CSYMSK_LENGTH, BYTE] FIELD (BASSFIELD_SYM), 
3 13 1 349 SEARCH DONE; 

; 13 § 551 2 6 

; 1838 226 ;_if the symbol table root has not yet been initialized, initialize it. 
: 15 554 2 

; i 555 IF (.SYM$Q_ROOT (0) EQL 0) 
ee 

> 1541 559 LOCAL 

: 1348 560 AST_STATUS; 

: 154 561 

; 1344 368 AST_STATUS = $SETAST (ENBFLG = 0); 

: 1346 $6 4 If. .SYM$Q_ROOT (0) EQL 0) 

+ 1548 4 BEGIN 

: 1548 567 4 SymSO_ ROOT CO) = SYM$Q_ROOT [1] = SYMS$Q_ROOT (0); 
: 1551 569 ; 

: 1552 570 IF (.AST_STATUS EQL SS$_WASSET) THEN SSETAST (ENBFLG = 1); 


ae ee ee ee | . 


4 
eagysts ici ESE MH WAAR 


IF (.SYM EQLA SYM$Q_ROOT) 


: 00 
5 5 5 
$ 74 ‘+ 
a _Search the queue, deleting any symbols in it. 
i$ “ SYM = .SYM$Q_R or (03; 
a SEARCH_DONE = 
7 | 
? dO 
; BEGIN 
4 
5 


SEARCH_DONE = 1 | 

ELSE 

1 BEGIN 
i We must delete this symbol from the symbol table. 
BUILTIN | 

REMQUE ; 


LOCAL 
foes -v". STATUS, 


: REF BLOCK (8, BYTE); 
—- (.SYM i oe 


SSSLSRRANLESSELE 


foal? steal al al ah ah ah ah ah al Ah Ab Ab Ab Ab Ab AD Ab Ab ab Ah ah ah Ab Ab ab Ab db dh eal 
NY ot of of ot ot ot ot ot ot ot ot ot tt oP ot tt ot ot a ae 


POPOIPIPIPOPIPIPIPIPYIPIPIPINIPIPIPIPIPININIPIPINININIPIPINININIT 


Seah ah ah ab ab sb Ah Ab db Ab Ab Ab Ab Ab Ab db sb dh dh db eb dh ah db esd shah ale ah eal al al gla Sal S Se Oe 


PRISE tt ttt Seabee nents Ae ta St 


em me we a a ed Ps a lt a a a te a tt tt i 8 tt 


01 SYM [SYM 
602 FREE Vi STATUS = oA esr hee _VM (ZREF (SYMSK_LENGTH), TEMP); | 
2604 IF ( NOT .FREE_VM_STATUS) THEN BASSSSTOP (BAS$K_PROLOSSOR); 
606 SYM = .SYM$Q_ROOT (0); | 
607 END | 
608 | 
2609 END | 
610 UNTIL (.SEARCH_DONE) ; 
2612 END; ! end of BASSS$FIELD_INIT 
003¢ 00000 ENTRY BASSSELELD D_INIT, Save R2.R3,R4,R5 : 2514 
$$ 900000006 00 9E 00002 MOVAB SYSSSETA ; 
54 00000000" EF 9E 0000 MOV SYM$Q ROOT: R4 ; | 
SE B Ce 00019 SUBL 8. S 3 
64 D5 0001 TSTL sysa_root : 2555 
ID 12 00018 BNEG ; 
7E D4 0001 CLRL. = (SP) : 2562 
65 O1 FB 00019 CALLS #1, SYSSSETAST ; 
4 05 0001C TSTL yYM$Q_ROOT : 2564 
A 12 OO01E BNEG ; 


N p. 
BASSRSTS FIELD “ 
tt 1228687} 
51 4 9 
ae eee 
09 i) A 1$: 
1g Baiep 
$3 1 4 1 
2 8 D 2$: 
0 4 BF 5 3$: 
3 é o1 6 : < 
53 + 06 90001 
A 11 00044 
06 =A 6g OF 00046 4$: 
. dc AE OF O00cE 
06 AE 5 gO 00051 
04 AE 9F 00055 
000000006 00 9¢ ee gaze 
E 00G 8F SA 00062 
oon SL 8 B88 og 
C6 53 €9 00070 6$ 
04 00073 
; Routine Size: 116 bytes, Routine Base: _BASSCODE + 06A0 
1595 2613 1 
1596 2614 1 END 
1597 2615 1 
1598 2616 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
-BASSDATA § NOVEC, WRT, RD ,NOEXE,NOSHR, 
“BASSCODE 181 NOVEC,NOWRT, RD, EXE, SHR, 
Library Statistics 
sacenses Symbols -------- 
File Total Loaded Percent 
~$255$DUA28: CS¥SLIBISTARLET.L32;1 9776 12 0 


Sep-1 


Be 11:56:88 


AX-11 Bliss-32 V 
BASRTL. SREIBASRS TE 


MOVAB synso shea" 
HOVL 7 hoot +4 


VL 
CMPL i aye tise a 
BNEQ 2 
PUSHL #1 
CALLS #1, SYSS$SETAST 

VL $YM$Q ROOT, SYM 
CLRL_ SEARCA_DONE 
MOVAB SYMSQ ROOT. RO 
CMPL avn RO 
BNEQ 
MOVL #1, SEARCH_DONE 
REMQUE (SYM), TEMP 
OVL Se tsyAD . VAR 
PUSHAB P 
OVL #32, 4(SP) 
PUSHAB 4s p) 
CALLS LIBSFREE_vM 
LBS Pete VM_STATOS, 5$ 
MOVZBL weASSK K PROLOSSOR, -(SP) 
CALLS #1, 
MOVL SyASe. ROOT, SYM 
BLBC SEARCA_DONE, 3$ 


end of module BASS$RSTS_FIELD 


Pages 
Mapped 


581 


Processing 
Time 


00:01.2 


P77 b$251 


Be Se Se Se Se Ge Se Be Se Be Se Ge Se Se Ge Fe Se Se Ge Be Be Se Se Se Se Se 


5 | 
RASSESTS-FTELD 1$-se0-1984 PHi9G:88 — OAsateSsaeSeasestser 32:1 Page 445 


COMMAND QUALIFIERS 
BLISS/CHECK=CFIELD, INITIAL OPTIMIZE) /MOTRACE/L 1594158: BASRSTSF 1/08J90BJS :BASRSTSF I MSRC$:BASRSTSF I /UPDATE=(ENH$:BASRSTSF I 


siz bg Bie 1812 code + 8 data bytes 
pte Tine: 01:22. 

Lines/CPU Min: 90 

Lexemes/CPU-Min: 25164 

— Used: 227 pages 

Compilation Complete 


—_ fh 


003 AH-BT13A-SE 
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